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DECLARATION OF BILLY W. HENSLEY AND ROY HAYS 
UNDER 37 C.F.R. SS 1,131 

We, Billy W. Hensley and Roy Hay, being joint inventors of the claimed subject matter, 
do hereby declare and say as follows: 

1 . We are the joint inventors of the inventions claimed in the original and pending 
claims of the above-captioned patent application. 

2. We have read and understand the above-captioned patent application, including 
the original specification and claims. We also have read and understand the Office Action dated 
March 6, 2006 and active claims 1-13. 

3. We have read and understand the following art applied in the Office Action: U.S. 
Patent No. 6,692,436 to Bluth et al. (hereinafter "Bluth") filed on April 14, 2000. 

4. We hereby incorporate by reference the CD-R filed on October 27, 2005. We 
submit that the creation date of each file contained on the CD-R and relied upon for overcoming 
the outstanding rejections predates the April 14, 2000 filing date of Bluth. 

5. We hereby incorporate the report attached to my Declaration of November 22, 
2004. The multiple entry dates subsequent to April 14, 2000 reflect dates on which files were 
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checked in or cheeked on, from a da«abase repository. Any notations made to the flies 
subsenuen, to April ,4, 2000 were no, necessary for or par, of*, firs, ae.nal reducfion to 
practice of the invention. 

6. The software code se, forth in ,he CD-R and existing prior ,„ the April 14, 2000 
filing da,e of B,u,„ constito.es an acua, reduc.ion to p ract ice of the invention. We declare ,ha, 
,he software node worked for i,s intended purpose and performed each and every function of 
claims 1-13. 

7. We have attached a hardcopy print-out of the software code contained on the CD- 
R, as requested by the Examiner. The code has been annotated and line numbers added to assist 
the Examiner in .dentifying the relevant code for each claim feature. The top line of each page 
of the hardcopy print-out includes a directory path, with the file name corresponding to the 
"FMsT set forth below in paragraphs 8-20. For example, for claim 1, phrase 1, the relevant 
code may be found at the hardcopy print-out with the path "C:\Documents and 
SettingsV.AthreadReceiver.cpp." at line 426 (on page 7 of the directory print-out). 

8. With regard to claim 1, the following files existing prior to April 14, 2000 and 
submitted on the CD-R allowed claim 1 to be carried out prior to April 14, 2000: 

providing user information for registered users, the user information comprising 
medical information specific to the registered users; 

Module: LCKioskServer.exe 

F|!e(s}: threadReceiver.h; threadReceiver.cpp 

Method(s): CExportKiosks: :buildDailyExport; 

CExportLCUsers::buildDailyExport 
Line Nos. : 426 etseq. 
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Comments: User information is packed into files and placed in FTP 
directory for kiosk pickup 
receiving updates to the user information; 
Module : LCKioskClient.exe 
File£s}: wndMonitorlSP.h; wndMonitorlSP.cpp 
Method(s): onExchange; exchangeFiles; pullFtpFiles 
Line Nos. : 1 97 et seq. , 68 1 et seq. , 804 et seq. 
Comments: Kiosks pick up data update files via FTP 
generating update user information; 
Module ; LCKioskServer.exe 
File(s) : threadReceiver.h; threadReceiver.cpp 
Method(s) : CExportKiosks::buildDailyExport 

CExportLCUsers: :buildDailyExport 
Line Nos. : 416 et seq. 

Comments: Server generates files for kiosks containing user information. 
The files are placed in a directory for pickup. 
for each of the collection kiosks, receiving a request from the collection kiosk for 
the generated update user information; 

Module : LCKioskClient.exe 

File(s) : threadReceiver.cpp; threadReceiver.h 

Method ts) : onTimerReceiveFiles 

Line Nos. : 127 et seq. 

Comments: All files are received via FTP. The LCKioskServer picks the 
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files up in the receiver directory and processes them all. 
sending to the requesting collection kiosk the update user information 
Module : LCKioskServer.exe 
File(s) : threadReceiver.cpp; threadReceiver.h 
Method(s) : CExportKiosks:buildDailyExport; 

CExportLCUsers: :buildDaityExport 
Line Nos. : 416 etseq. 

Comments : Data from the server is stored on the kiosk in a local 

database. Logins on the kiosks are authenticated against 
database. 

storing the update user information at the requesting collection kiosk for 
subsequent requests, 

Module : LCKioskClient.exe 
File(s) : wndMonitorlSP.h; wndMonitorlSPxpp 
Line Nos. : 265 et seq. 
wherein the collection kiosks use the update user information to verify whether a 
user is registered. 

Module : LCKioskClient.exe 
File(s) : wndMonitorlSP.h; wndMonitorlSPxpp 
Line Nos, : 265 et seq. 
9 With regard to claim 2, the following files existing prior to April 14, 2000 
allowed claim 2 to be carried out prior to April 14, 2000: 
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wherein the collection kiosks operate as FTP clients and the computer system 
operates as an FTP server 

Module : LCKioskClient.exe 
File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 
Method(s) : exchangeFiles; pullFtpFiles 
Line Nos. : 68 1 et seq. , 804 et seq. 

Comments: The server side FTP module is part of Windows operating 

system. The server generates files to be transferred and drops them 
into an FTP directory for kiosk pickup. 
10. With regard to claim 3, the following files existing prior to April 14, 2000 
allowed claim 3 to be carried out prior to April 14, 2000: 

wherein the received update user information includes indications of whether to 
add a registered user, delete a registered user, or change information relating to a registered 
user 

Module (server side) : LCBroker.exe 
File(s) : xc_applyKioskTrans.ccp 
Method(s) : applyUsers 
Line Nos. : 93 et seq. 

Comments : Determines if a user can be applied as a new user or must be 

rejected, i.e., if user is already in system 
Module (kiosk side) : KCData dll 
File(s) : CoKCData.h; CoKCdata.ccp 
Method(s) : getLCUser 



5 



1 



Line Nos. : 1 84 et seq. 

Comments : User's information has been updated with information from 
the server after data exchange. The user is in one of several 
statuses: a verified lifeclinic user, a candidate to become a 
lifeclinic user, or rejected by server. 

1 1 . With regard to claim 4, the following files existing prior to April 14, 2000 
allowed claim 4 to be carried out prior to April 14, 2000: 

wherein a collection kiosk sends a request for the generated update user 
information once a day 

Module : LCKioskClient.exe 
File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 
Method(s) : onExchange; exchangeFiles; pullFtpFiles 
Line Nos. : 1 97 et seq. ,681 et seq. , 804 et seq. 
Comments : Kiosk pulls available updates 

12. With regard to claim 5, the following files existing prior to April 14, 2000 
allowed claim 5 to be carried out prior to April 14, 2000: 

wherein the user information includes a user identifier and a password 
Module : LCKioskClient.exe 
File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 
Method(s) : onExchange; exchangeFiles; exportData 
Line Nos. : 197 et seq., 681 et seq., 898 et seq. 
Module : KCData.dll 
File(s) : CoKCData.h; CoKCData.cpp 
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Methodfs): getUnexportedData 
Line Nos. : 396 etseq. 

Comments :' Data sent to the server contains requests to add new users, 
with request including login and password. 
13. With regard to claim 6, the following files existing prior to April 14, 2000 
allowed claim 6 to be carried out prior to April 14, 2000: 

providing user information for registered users, the user information comprising 
medical information specific to the registered users; 

Module : KCData.dll 
File£s}: CoKCUser.h; CoKCUser.cpp 
Methodist get LCUser 
Line Nos. : 184 etseq. 
sending a request for updated user information; 
Module : KioskClient.exe 
F'Ie(s): wndMonitorlSP.h; wndMonitorlSP.cpp 
Method(s): onExchange; exchangeFiles 
Line Nos. : 1 97 et seq. , 68 1 et seq. 
in response to sending the request, receiving the updated user information; and 
updating the provided user information for the registered user in accordance with the received 
updated user information so that the collection kiosk can verify whether a user of the collection 
kiosk is registered; and 

Module : KioskClient.exe 

FHefs}: wndMonitorlSP.h; wndMonitorlSP.cpp 
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Method(s): onExchange; exchangeFiles; pullFtpFiles 

Line Nos.: 1 97 et seq. ,6Uet seq. , 804 et seq. 

Module : KCData.dll 

Filefs): CoKCData.h; CoKCDatacpp 

Methods : importLCUsers; getLCUser 

Line Nos. : 627 et seq. , 1 84 et seq. 

Comments : local user information updated with information from server 
via importLCUsers after data exchange. 
storing the updated user information at the collection kiosk for subsequent 

requests 

Module : LCKioskClient.exe 
File(s): wndMonitorlSP.h; wndMonitorlSP.cpp 
Line Nos. : 265 et seq. 
14. With regard to claim 7, the following files existing prior to April 14, 2000 
supported claim 7 prior to April 14, 2000: 

a central computer system for a web site, the central computer system providing a 
repository for the information, registering users of the web site, and accessing the information; 
and 

Module : LCKioskClient.exe 

File£s): wndMonitorlSP.h; wndMonitorlSP.cpp 

Line Nos. : 265 et seq. 

Comments: The central computer is comprised of IIS, MS SQL, FTP, 
LCKioskServer, and LLCBroker. 
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Web Directories/Files : 

i. \Member\Admin\Kiosk 

- KioskCheck.asp; KioskSave.asp 

ii. \Member\Admin\KioskAds 

- dataAdmin.asp; default.asp; distlist.asp; distlog.asp 
distnew.asp; distsave.asp 

iii. \Member\BloodPressure 

- BloodPressure.asp; BIoodPressure_4_2.asp; LoadBP.asp; 
LoadBP_4_2.asp; SaveBP.asp; SaveBP_4_2.asp 

iv. \Member\Charts 

- Chart.asp; EmailtoPhysician.asp; NormalBPRanges.asp; 
NormalCholesterolRAnges.asp; Review.asp; 
vitalchart.asp; NormalGIucoseRanges.asp 

v. \Member\Login 

- index.asp; Login.asp; loginError.asp; verifyUsenasp 

vi. \Member\MemberInfo 

- familyMember.asp; getSexCode.asp; LoadDependent.asp; 
loadMemberlnfo.asp; Memberlnfo.asp; 
MemberInfo_new.asp; SaveDependent.asp; 
saveMemberlnfo.asp; saveMemberInfo_3_l 5.asp 

vii. \Member\NewUser 

- agreementasp; agrmdecline.asp; Newuser.asp; 
Newuser_form2.asp; Welcome.asp 
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viii. \Member\Preferences 

- ChangePassword.asp; emailUpdatePreference.asp; 
LoadUserPreference.asp; mainPagePreference.asp; 
newsPreference.asp; password.asp; Preferences.asp; 
SaveEmailUpdate.asp; SaveMainPagePreference.asp; 
SaveNewsPreference.asp; SavePreference.asp 

ix. \Member\Pulse 

- LoadPulse.asp; LoadPulse_4_2.asp; Pulse.asp 
Pulse_4_2.asp; SavePulse.asp; SavePulse_4_2.asp 

x. \Member\ Weight 

- LoadWeight.asp; LoadWeight_4_2.asp; SaveWeightasp; 
SaveWEight_4_2.asp; Weightasp; Weight_4_2.asp 

a plurality of collection kiosks for collecting information about users, for 
verifying whether a user is registered at the web site, and for sending the collected information 
to the central computer system when the user is registered. 

Module : KioskClient.exe 

File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 

Method(s) : onExchange; exchangeFiles; pullFtpFiles 

Line Nos. : 191 et seq. , 68 1 et seq. , 804 et seq. 

Comments : Kiosks maintain local copy of centralized data 

Module : KCData.dll 

File(s) : CoKCData.h; CoKCDataxpp 

Method(s) : getLCUser 
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Line Nos. : 184 et seq. 

Comments : authenticates user against local database 

15. With regard to claim 8, the following files existing prior to April 14, 2000 
allowed claim 8 to be carried out prior to April 14, 2000: 

wherein the information is medical information. 
Module : KCData.DLL 
File(s) : CoBPReading.h; CoBPReadingxpp; 
Line Nos, : 1 04 et seq. , 
Module : KCData.DLL 

File(s) : CoWeightReading.h; CoWeightReading.cpp; 
Line Nos. : 78 et seq. 

16. With regard to claim 9, the following files existing prior to April 14, 2000 
allowed claim 9 to be carried out prior to April 14, 2000: 

registering the users at the web site when information about a user is collected at 
one of a plurality of collection kiosks, 

Module : LCKioskServer.exe 

File(s) : threadReceiver.cpp; threadReceiver.h 

Method(s) : onTimerReceiveFiles 

Line Nos. : 127 et seq. 

Comments : all files received via FTP; LCKioskServer picks files up 
in the receive directory and processes through 
LCBroker.exe 

Module. LCBroker.exe 
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File(s) : xc_applyKioskTrans.cpp 

Method(s) : applyUsers 

Line Nos. : 93 et seq. 
determining whether the user is registered at the website; and when registered, 
sending the collected information to a computer system so that the collected information is 
accessible to the user through the web site. 

Module : KCData.dll 

File(s) : CoKCUser.h; CoKCUser.cpp 

Method(s) : get_LCUser 

Line Nos. : 221 et seq. 

Module : KioskClient.exe 

File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 

Method(s) : onExchange; exchangeFiles 

Line Nos. : 1 97 et seq. , 68 1 et seq. 

Comments : Each kiosk authenticates users against local database during 
login. User statuses are verified user, candidate, and rejected. 
Non-users and rejected users become candidate and registration is 
scheduled to occur via subsequent data exchange with server. 
17. With regard to claim 10, the following files existing prior to April 14, 2000 
allowed claim 10 to be carried out prior to April 14, 2000: 

wherein a collection kiosk automatically sends a request for the generated update 
user information periodically. 

Module: LCKioskClient.exe 
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File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 
Line Nos. : \91etseq. 

18. With regard to claim 1 1, the following files existing prior to April 14, 2000 
allowed claim 1 1 to be carried out prior to April 14, 2000: 

wherein said sending a request for updated information is automatic and 
performed periodically. 

Module : LCKioskClient.exe 

File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 

Line Nos. : 235 etseq. 

19. With regard to claim 12, the following files existing prior to April 14, 2000 
allowed claim 12 to be carried out prior to April 14, 2000: 

wherein said sending a request for updated information is automatic and 
performed daily 

Module : LCKioskClient.exe 

File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 

Line Nos. : 1 23 et seq. 

20. With regard to claim 13, the following files existing prior to April 14, 2000 
allowed claim 13 to be carried out prior to April 14, 2000: 

the information comprising medical information specific to the registered users; 
Module : LCKioskClient.exe 
File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 
Line Nos. : 681 etseq. 
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the central computer system further is for receiving updates to the user 



information from the collection kiosks, generating update user information, and for each of the 
collection kiosks, receiving a request from the collection kiosk for the generated update user 
information and sending to the requesting collection kiosk the update user information. 



21 . We hereby declare that all statements made herein of our knowledge are true and 
all statements made on information and belief are believed to be true; and further that these 
statements were made with the knowledge that willful false statements and the like so made are 
punishable by fine or imprisonment, or both, under Section 1001 of Title 18 of the United States 
Code and that such willful false statements may jeopardize the validity of the above-captioned 
patent application or any patent issued thereon. 



Billy W. Hensley Date 



Module : LCKioskClient.exe 



File(s) : wndMonitorlSP.h; wndMonitorlSP.cpp 



Line Nos« : 681 etseq. 




Date 
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1 // CoKCL\s**r .cpp : imi^em&rttation or; CKCUse;: 

2 tfinr^sd* "stdafx.h" 

3 &i«el*jciw "KCData-h" 

4 ainriudc "CoKCUser.h" 
$ jfir,v;i,U'.ic! "CoKCData.h" 

6 *inrj».?ri» "CoBPReading.h" 

7 mr.rlun^ "CoWeightReading.h" 

8 Binrlude "rs kcdata.h" 
9 

10 ^-'// / /////////////////////////////////////////////////////////////// 

11 // CKCUser 
12 

13 H RESULT CKOteer : ■■; Pitta ICanst met { S 

14 { 

15 mjpobj Owner * NULL; 

16 m_prsB? * NULL; 

.17 m prs Weight « NULL; 

1- 

19 ir._vKioskUserID.yr. - VT NULL; 

20 m_vFirstNa.-ne.vt. » VT_WULL; 

21 m vLasLiicsjtiW . vi ~ VTNULL; 

22 m vMiddleWame . vt ~ V?__#ULL; 
?3 m""vAddres*l .vt - vT KJXLJL; 

2 4 m_ v Ad d r e s s 2 . v t « VT _ N ii L L ; 

25 m vC.tty.vt - VT NULL; 



2 7 la v Zip. v t ~ VT WU LL ; 

20 nTvPhons.vt - VT^NULL; 

29 nrvPasswoca.vu « VT_NULL; 

30 m_vEMail.vt « VT NULL; 

31 'm^vTiC Password . vf = VT HULL; 

32 ro_vLCUse.r. vt - VT MULL; 

33 m vUserStatus.vt - VTJ1ULL; 
34 

35 :Hmi S OK; 

37 

38 5 CKCUaer: : FinalRele&seO 
{ 

40 if <mj?isSP !■* HOLD 

4.1 d- m prsBP; 

42 

43 (mjprsWeight • = NULL) 

44 atsitste .v. prsWei^fct; 
45 

4 6 ;r (rn_pv>b jOwrjer HULL) 

47 m pobi Owner- > Re lease I ) ; 

48 

4 9 r\; 

50 } 

51 

52 STDMETttCSIMP CKC : J^.vr : : Interf &ceS>ap?cst«BzroTlnf c (REFIIB riid; 

53 1 

54 st a r i c r rtn s r 1 1 D 4 " a r r [ ] » 

55 { 

56 SlID__IKCUser 

57 * ; 

58 iui i . i~0; i < .;;zoo;{arr} / siz&of (arr [0] } ; i+f) 

59 { 

60 ir in lineTse;.quaiGUTD( > arr iij f riid) : ) 

61 return 3_OK; 

62 \ 

63 r-mrr S FALSE; 

64 J 
65 

66 STDMETHODIMP CKCUser::get KioskUser ID (VARIANT »pVal} 
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67 { 

68 *pVai - m_vKioskUserID; 

69 return SJ3K; 

70 } 

7"? 

72 STDMETKO0IMP CKCUser :: get_FirstName (VARIANT * pVal) 

73 i 

lq Variantlnit (pVal) ; 

75 *pVal » jvariant_t {rn_v First Name) . Detach £) ; 

76 tetuxn S OK ; 
11 \ 

73 

79 STDMBTHO'DIH? CKCU.se r. : : put_jrix5tNaftva (VARIANT newVai) 

80 { 

81 m v First Name « newVai; 

82 i-ecurn S_QK; 
33 } 

H4 

85 5TDMETHODIMP CKCUser :: get_LastNama (VARIANT *pVal) 
36 { 

tl variantlnit (pVal) ; 

38 *pVal * __va r la n t__t {m_vLa st Name) .Detach 0 ; 
2 9 return S_OK; 

90 } 

91 

92 ST DMETHODXMF CKCUser : : put_LastN&rae { VARIANT newVai} 

93 i 

94 m_vLastName newVai; 

95 return SJ3K; 

96 \ 
97 

33 $TDMETHODIKP CKCUser :: get JliddleName (VARIANT *pVai) 
99 { 

100 variantjcnit (pVal) ; 

101 *pVal = _variant_t (m_vMiddleName) .Detach {) ; 

10-2 Latum S OK; 

103 f 
1 04 

.105 STDMETHODIMP CKCUaer :: put_MiddleName (VARIANT newVai) 

106 { 

107 m_uMiddleName - newVai; 

108 recurn 5_OK; 

109 } 
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111 STDMETHODIMP CKCUser : : get_Addxessl (VARIANT *pVai) 

112 { 

113 Variantlnit (pVal) ; 

114 *pVal <= variant_t (mj/Addressi) .Detach 0 ; 

115 catuxr. S_OK; 

116 } 
117 

116 STDMETHODIHP CKCUser : :put_Addres5l (VARIANT newVai) 

119 { 

120 m_vAddressl - newVai; 

121 return S_OK; 

122 J 

! 2 3 

124 STDMETHODIHP CKCUser : :get_Addre S3 2 (VARIANT -pVal) 

125 { 

126 variantlnit (pval) ; 

127 *pval = variant_t Cm_vAddress2) .Detach (} ; 
* 28 return S_OK; 

129 } 

131 STDMETHODIMP CKCUser : :put_Address2 (VARIANT newVai) 

132 ( 
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133 m_vAddress2 • newVal; 

134 r-stnur. £ OK; 

135 } 
136 

137 STOHETHODIMP CKCUser :: get City (VAKZAHT *pVa'l) 

138 { ~ 

139 VariantZnit (pVal) ; 

140 *pVai = __variant_t{m_vCityK Detach {) ; 

141 return 3 OK; 

142 } 
143 

144 STDMETHODIMP CKCUser :: put _C it y (VARIANT newVal) 

145 { 

14 6 tn_vCity ~ newVal; 
14? return 
148 } 
149 

150 STDMETHODIMP CKCUser get_State f VARIANT a dV«1) 

151 { 

152 Variantlnit IpVal) ; 

153 *pVal - _variant_t (m_v5tate) • Detach i) ; 

154 return S_OK; 

155 | 
1S6 

157 STDMETHODIMP CKCUser :: put _State (VARIANT newVal) 

136 { 

159 m vState ~ newVal; 
return SJMC; 

161 } 
162 

163 STDMETHODIMP CKCUser : : get Zip (VARIANT *pVal) 

164 { 

165 Variantlnit (pVal) ; 

166 *pVal ~ _variant_t (m_v2ip) . Detach () ; 
16? return SjDK; 

160 } 
169 

170 STDMETHODIMP CKCUser put Zip (VARIANT newVal) 

m { 

172 m_vZip » newVal; 

173 rei.u.ui S OK; 

174 } 
175 

176 STDMETHODIMP CKCUser : :get_Phone (VARIANT *pVal) 

177 { 

178 Va ria n 1 1 nil ( pVa 1 } ; 

179 *pVai = variar.t_t {m_vPhone) .Detach O ; 
ISO return S_OK; 

181 ) 
182 

133 STDMETHODIMP CKCUser :: put_Phcne (VARIANT newVal) 
1S4 { 

185 m_v Phone » newVal; 
18.€- return S OK; 
187 } 

in 

139 STDMETHODIMP CKCUser : :get_Pas sword {VARIANT *pVai> 
190 { 

19.1 Variantlnit (pVal) ; 

192 *pVal * _variant_t{in_vPassword) .Detach 0; 

193 return S_0K; 
1SK } 

195 

196 STDMETHODIMP CKCUser: :put Password (VARIANT newVal) 

197 { 

193 m v Pas sword » newVal; 



199 
200 
201 
202 
203 
204 
205 
206 
207 

2 on 

209 
210 
211 
212 
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Xnlniu S OK; 



STflMETHODIMP CKCUser : : get JEMaii (VARIANT *pVal) 
Var.iann.Init (pVai) ; 

4 pVal - _variant_tim vEMail) .Detach O ; 

return S OK; 



STDMETKODIMP CKCUser : :putJ2MaU {VARIANT newVal) 



m_vEMail » newVal; 
return S OK; 



STDMETMODIMP CKCUser : rputJX Password (VARIANT newVal) 

m_vLC Pas sword - newVal; 
return s ok.; 

} 

3T0KETHODIMP CKCTsor :: put ^.LCUscx (VARIANT ncWVal) 
( 

m^v'LCUser ~ newVal; 
return S OK; 



ST DMETHODIM P CKCUser: : get ^LCCTser (VARIANT *pVal} 
{ 

Varianclnit (pval) ; 

*pVal • _variant_t(m vLCUser) .Detach (); 
return S_OK; 

} 

3TDMBTKODIMP CKCUser: : getJJser Stat us {VARIANT *pVal) 
Va r i a n 1 1 n i t ( p Va 1 ) ; 

*pVal ~ _variant_t(m_v0serStatU5) .Detach O; 
return SJ3K; 

> 

ST DMETHODIM? CKCUser :: put UserS tat us (VARIANT newVal) 
{ 

ro_vUserStatus * newVal; 
return 5 OK; 

I 



ST DMETHODIM? CKCUser: : update {) 
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Crs__keuser rs; 
string strError; 
KRESULT hr * S_OK; 

rs .set ActiveCoinmand ("upt User") ; 

rs.setParameter ("kiosk_user_id H , m_vKioskUser ID) 

rs. set Parameter ("f irst_name", mjvFirstName) ; 

r s . s e t Pa r amet e r {" la s t_n ame " , mj/La s t Name ) ; 

rs , set Parameter ( "middle j*ame'\ m_vMiddleName) ; 

rs. set Parameter ("addressl", rnj/Addressl) ; 

rs.setParameter ("addre3s2", m_vAddress2) ; 

rs. setParamstecf "city", m_vCifcy) ; 

rs .set Parameter ("state", m_vState) ; 

r-s » setPa.rameter ("zip", m vZxp) ; 

rs. set Parameter ("email", m_v&Mail) ; 

rs.se t. Parameter ("phone", nTv Phone) ; 
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rs. set Parameter ("password", mjvPassword) ; 

.r.3.^s.et.Ea.caj35fi.tar..( " r 4wLsex_st^jis% .m_uUse^SxjxtiL&).; 

if ( !m_pobjOwnex->m_pcon«->execute(rs) ) 

m_pobjOwner->m_pconn->getLastError (strError) ; 
Error ( strError . c^str 0 , IIDJKCUser, hx * ENTAIL) ; 



return hrr 



in 3TDMBXWOOXMP CKCUsex :: addsfKea ding (variant vsystolicsr, vjuixAirr vDiastoiicar, vAKxANt * 
vPulse) 

278 f 



27$ H RESULT hr - SJDK; 
280 

2U1 cry 

282 { 

283 SVSTBMTZME tm; 

284 Get Loca iTime i £ tm) / 

285 DATE dateNow; 
Syst:-fwrfriweToVATiftnr,Tiinft (St.m, ftdat.etfow} ; 

287 

288 Crs blood pressure rs; 

28$ 

290 rs.se tActiveCommand ("insNewReading") ; 

2^1 rs . setPa.rameter ( "kiosk_id n / ^variant t (mjaobj Owner ~>m_I Kiosk Id) } ; 

292 rs. setParameter < ,, kiosk_userJ.d M , m^vKioskUserlD) ; 

293 rs. set Parameter ("reading^df, _variant_t (dateNow) } ; 

254 rs. sefc Parameter ( w sys feolic^bp", _variant t (vSysfeolieBP) ) ; 

■-95 rs. setParameter ("diastolicjap" , _variant_t (vDiastolicBP) ); 

£96 x^ ^s.et5axamater ( "pulse M » waxiact t Cv.eo.Lsfc.* l .; 
297 

293 j j; ( !m_pobj Owner ->m_pconn->execute (rs) ) 

2*55 { 

300. string strSrxor; 

301 rnj^obj.Owner->mjoconn->getLastError (strError) ; 

302 Error {strError. cjstr {) , IID IKCData, E^EAILJ ; 

303 throw £_FAXL; 

305 

306 removeOldReadings (rs) ; 

3Q7 J 

308 caichi^com^error & e) 

309 * 

3X0 Error i(BSTR) e . Description 0 , IID IKCtfser, hr = e.ErrorO); 

31.1 ) 

312 catch (H RESULT hrError) 

313 ( 

314 hr = hrError; 

315 } . 

316 catch (...) 

317 ( 

318 hr = £__FA1L; 

319 } 
320 

321 cecum hr; 



322 } 

324 STDMETHODIMP CKCVsbz :: addWeight Reading (VARIANT vWeight) 

325 ( 

326 K RESULT hr • SJ3K; 
327 

328 try 

329 { 



265 

267 
268 

270 
271 
2 12 
273 
274 
275 } 
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330 SYSTEM? I ME tm; 

331 Get Local Time ( &tm) ; 

332 DATE dateNow; 

333 System? imeToVariantTime (itm, SdateNow} ; 

334 

3 3 5 C r s _w e ight t s ; 

336 

337 rs.se t Ac t i veComma n d { " i n s Ne wReadi n g * ) ; 

338 rs.setParameter { ,1 kiosk_id M , j/ariantj: <m_pobj Owner- >m_l Kiosk Id) ) ; 

339 rs. set Parameter { "-kiosk^u-s&r Jid M , rc_vKioskUserID) ; 

340 rs-setParameterrvreadinc^dt", jvariant_t (dateNow) ) ; 

341 rs . set-Parameter i "weight variant t ( vWeight) ) ; 

342 

3-4 3 it ( ! m__pob j Owne r - >m_pcc n n - > e xe cu t e { r s ) ) 

344 { 

345 string strError; 

34 6 m_pobj Owner- >irjjpconn ~>ge t La stEcror (strError) ; 

3$? £r ro.r (sr r£r r or . c_str ( ) , I ID_IKCUata , E FRIt. j ; 

346 throw E FAIL; 
34 9 } 

3 SO 

35.1 removeOldReadings {rs} ; 

352 } 

353 car c h { _c om_e r r or 5 e ) 
35-1 { 

355 Error C (BSTR) e . Description { J , IID IKCUser, hr = e. Error {)} ; 

356 J 

357 ■JdtcMH&ES&S.? -fefiBsre*} 

358 { 

359 hr - hrError; 

360 | 

361 coi i/h (...) 

362 j 

363 nr ■ £ FAIL; 

364 } 
3S5 

366 r«*rorn hr; 

367 J 
36? 
369 

370 STDMETH00IMP CKCVsez :: addAIternatelD (VARIANT vID, VARIANT vldType) 

3/i i 



372 H RESULT hr - S_OK; 
373 

374 rrv 

375 { 

376 Crs_aiternate_id rs; 
377 

378 rs.setActiveCommand ( "insNewId") ; 

379 rs . set Parameter { "kiosk_id M , _variant_t {m_pobj Owner- >m_i Kiosk Id) ) ; 

380 rs . set Parameter { "aIternate_id M , _var.ian.t_t (vXD) ) ; 
30 1 r 5 . set-Par antet e« { " k io-sfc s s er id " , m vKio^5U'S-e-r 1 1» ; 

382 i t (vldType. vt **» VT_ EMPTY J) vldType, vt ™ VTJWLL) 

383 rs.setParameter {"id^type", _variant_t (2L) ) ; 

384 .else 

385 rs. set Parameter ("idj:ype n , variant_t (vldType) } ; 

Ite 

387 if ( !m_pobjOwner->m_pconn->execute (rs} ) 

389 { 

389 string strError; 

390 m jpob j Owner ->ro_pconn->get Last Error {strError) ; 

3.9.1 Hlrmr (.JiLt£rxar.^c^a,tr . A XID_XKCDa.t3./. .El_E^0LL,U: 

392 throw E_FAIL; 

393 } 
394 

395 } 
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396 calch{ coiRjrror $ e) 

397 { 

.398 Error MBSTR) e . Description {) , IID_IKCOser, hr » e. Error ()}; 

399 } 

4'CfO catch (?-iKE'Stn*T hrError) 

401 { 

402 hr - hrError; 

403 } 

404 catch (...) 

405 i 

406 hr - E_FAII»; 

407 ) 
408 

409 return hr; 



410 } 
411 

412 STDMETHODXMP CKCUser :: get First BP (VARIANT *pBPReadingi 

4.13 { 



414 HRESULT hr - 5 OK; 
415 

416 txv 

417 { 

419 if v^ prse? m-u 

419 delete m__prsBP; 

4 2G 

421 m_p.rsBP * new CisjDloocfjsressure; 

422 mjj i:sB?~>set Act: iveCommand ( "getReadings" } ; 

424 

425 if ( !mjpobjCtomer->mj?conn->execute ( ^m^prsBP) ) 

4-2*6 { 

427 string strError; 

428 m pobjOwner->mjpconn->getLastError (strError) ; 

429 Error "(strError. c str<) , IID_IKCUser, hr - E^FAIL) ; 

430 throw E FAIL; 

431 } 
432 

433 hr « getNextBP (pBPReading) ; 

434 } 

435 catch (_com error 6 e) 

436 I 

437 Error ( (BSTR) e. Description () f IID_IKCUser, hr - e. Error <)) ; 

438 } 

439 catch (HRESULT hrError) 

440 { 

441 hr hrError; 

442 } 

443 catch (...) 

444 ,' 

4 45 hr - E_FAIL; 

446 } 

447 

448 return hr; 



449 } 
45U 

451 STDMETHODIMP CKCUser :: get Next BP (VARIANT *pv8PReading) 

452 { 



453 HRESULT hr - 5_OK; 

454 VariantClear (pvBPReading) ; 

455 CComObject<CBPReading> * pobjBP - NULL; 

456 variantjr. Wal (( IDispatch *) NULL, false); 
457 

458 try 

459 { 

46*0 if (m_prsBP — NULL) 

461 { 
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Jg ^^ ( £ C ^ t S ? r: ; ^ tFir «tBP<j must be called first-, IID^IKCUser, E_FAII») ; 

4 64 } 
465 

4*56 if ffm prsBT?->isEOF'(i )' 

46^ . | 

*tl i£ {rML£D(hr * CComObject<CBPReading>: iCreatelnstancettpobjBP) ) } 

strings t ream strmError; 

StrmRrror « "CComOb j*c-t<CBPRTO**ng> : rCreat^Tn-sta-nce () failed. firror 



4 7 



472 



[Ok"; 



strmError « std: :hex « hr « "] **; 
^ 3 Error (strmError. str() .c_str() # XID IKCUser, hr) ; 

474 chro^ hr; 

475 } 
476 

4 ?? pobjBP->load{*in prsBP) ; 

47 $ m prsBP->moveltext { ; ; 

479 

480 -IDispatch * pIDispatch; 

481 if (FAILED (hr - pobjBP->QueryInterface(IID IDispatch, {void **) & 
pIDispatch) ) ) 

4B7 { 

•483 stringstream strmError; 

*?j strmError « "Querylnterface (IDispatch) failed. Error » [Ox"; 

485 strmError <x std: : hex « hr << "} M ; 

486 Error (strmError. str{) .c str{) , IID IKCUser, hr) ; 

■4-3 "? pofe-j-&P - >&s le a s<s { ) ; 

488 throw hr; 

489 } 
490 

4$1 Wal.pdispVal - pIDispatch; 

492 ) ^ 

493 } 

494 catchi com error & e) 
49$ { 

496 Error { {BSTR} e . Description {) , IID IKGQser f hr » e. Error {)> ; 

497} 

498 catch {HRESULT hrError) 

499 { 

540 hr - hr£*rro-r; 

501 } 

502 catch(...) 
'503 ! 

5G4 hr - E_FAIL; 

505 } 

506 

507 if ( SUCCEEDED {hr} J 

508 *pvB?Rfea<iing « vVal . Detach O ; 
509 

510 return hr; 

511 } 
312 

S13 STDMETflODIHP CKCtfcwr :: get; Pir«r.Weight (VARIANT * pvWeight) 
314 ( 

515 H RESULT hr « S OK; 

516 

517 cry 

518 { 

519 if (mjprsWeight !» NULL) 

520 delete mors Weight; 
521 

522 m_prs Weight * nev Crs_weight; 

^ 3 ja prsWedriht->seXAct^ ; 

524 m prsfcfeight->setParameter ("kiosk user id**, m vKioskUserlDj ; 

525 ~ 
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1 f ( ^n_pobjOwner-»>m_pconn->e>:ecute( *m_prsWeight) ) 

528 string str Error; 

529 ^„pobjOwner->m_pconn->getLastError (strError) ; 
Error (strError. c str O , XXD IKCTser, hr « E FAIL) ; 

531 throw E FAIL; "'" ~ ~ 

532 } 

534 hr - getKextWeight^pvWeiqht); 

53c j " 

536 ca tch { com_error & e) 

53 7 { 

538 Error ( (BSTR) e. Description () , IID^IKCUser, hx - e . Error {;) ; 

539 } 

540 ;*sLcr. (BP«£S#-LT hrError) 

541 { 

542 hr - hrError; 

54 J } 

54 4 co 1 cii I . . . ) 

545 { 

ftr = E FAIL; 

54? ) 



54 9 return hr; 

550 J 

551 

552 ST DM ET H OD IMP CKCUser: :?etNextWeight (VARIANT *pvWeighfc) 

553 f 

554 H RESULT hr » 3_OK; 

555 VariantClear <pvWeight) ; 

556 CComObJect<CWeightReading:> * pobj'Weight ~ NOLL; 

557 ^variant t Wa 1 { (IDispatch *) NULL, false); 

5.58 

559 Uv 

560 i 

561 u (m pes weight 'NULL) 

562 { 

563 Error ( "CKCUser : : get Fi rsfcWeiqht ( ) must be called first", IID IKCUser, 

E_ E'A I L) ; 

564 tnrow E FAIL; 
5-&S » 

566 

5*57 if ( !m_prsWeight->isEQFO } 

565 { 

5*9 J-f ( FAILED (hr - CComObject<CWeightReadtng> : : Createlnstance UpobjWeight) ) } 

571 stringstream strmError; 

572 strmError « M CComCbject<CWeightReading>; :CreateInsta-nce ( ) failed. 

E c r o r - [ 0 x M ; 

573 strmError « std:;hex « hr « "]"; 

^*?4 Error (strmError. str{) .c_str(> / IID_IKCUse.t, hr) ; 

575 throw hr; 

576 } 
577 

578 pobJWeight->load<*iajprsWeight) ; 

579 mjprsWeight->moveNext 0 ; 
560 

581 IDispatch * pIDispatch; 

if (FMLEEMkr - pofej^i^h-t-^Q^ (void **> i 

oIDispatch) ) ) 
S83 i 

SO 4 stringstream strmError; 

585 strmError « "Querylnterf ace ( IDispatch) failed. Error * [Ox**; 

586 strmError « std::hex << hr « "]"; 

5V! Error (strmError. str (). cjstrO, IID^IKCUser, hr) ; 

589 pobjWeight->Release (} ; 
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58 9 throw hr; 

590 } 

591 

592 vVal.pdispVal = pIDispatch; 

594 } 

595 catch (_com error & e) 

596 1 

597 Error ((BSTR) e . Description (} , IID^IKCUser, hr - e. Error ()) ; 

S9-8- ) 

599 catch (K RESULT hrErxor) 

600 { 

C01 hr - hr Error; 

602 } 

603 catch (...) 

604 { 

605 hr * E_FAIL; 
404 } 

607 

608 if (SUCCEEDED { hr ) ) 

609 *pvWeight - Wal. Detach (} ; 
610 

611 return hr; 



612 } 
613 

614 ST DMETKOD IMP CKCA Ksftt :: validate Pas sword (VARIANT v Pas-sword, VARIANT vPWorriType, VARIANT ✓ 

*pvf Valid) 

615 { 



6.16 fi RESULT hr - S OK; 
617 Variant Init (pvf Valid) ? 

619 try 

620 { 

G21 pv£Valid->vt * VTJBOOL; 

622 pvfValid->bVal - 0; 
623 

624 loiiq lPWordType; 

625 if (vPWordTypa. vt ^ VT_EMPTY }] vPWordType .vt « VT_NULL) 

62-6 IWordType « 1; 

627 else 

628 lPWordType = (long) ^variantj: (vPWordType) ; 
629 

630 if (lPWordType \ = 1 lPWordType !» 2) 

631 { 

632 Error ("Invalid PasswcrdType. ", IID_IKCOser, EJCNVALIDARG) ; 

633 hr - E_INVALIDARG; 

634 \ 

635 else 

636 I 

b37 bstr t bstrPWordln ( vPassword) ; 

638 _bstr~t bstrPWord; 

-63-9 if fl-PWoffdType «■« 1) 

640 bstrPWord • mj/'LC Pas sword; 

641 else 

642 bstrPWord « m_vPasswo.rd; 
643 

644 string strBPWordln; 

645 string strPWord; 
646 

$47 i £ (bstr PWordi-n . ler^th ( } ) 

648 strBPWordln - (char *) bstrPWordln; 

649 

650 if (bstrPWord. length O > 

651 strPWord - (chat: *) bstrPWord; 
652 

653 TOUPPER(str3PWcrdIn) ; 



■ I 
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654 TOUPPER(strPWord) ; 

655 

656 if ( strBPWordln. compare {strPWord) »« 0) 

657 pvfValid~>booiVal * -1; 
653 else 

659 pvfValid->boolVal * 0; 

660 } 

661 } 

662 era r »j h ( _c om_e r r ox & e ) 

663 ( 

664 Error ((BSTR) e . Description { 5 , IID IKCUser, hr - e. Error () }; 

665 } 

fc"6'6 catch (...) 

667 { 

668 Error ("Unknown exception", IID IKCUser, hr « E FAIL) ; 

669 } ~ 
670 

671 return hz? 



672 ) 
673 

674 ///////////////////////////////////////////////////////////////////////////// 

675 // internal C++ interface 
676 

677 boo. I CKCUser: : load <CSdoRecordset & rs) 

678 { 



679 m^vKiAxkffoftirTO - rs .get Field { "kiosk user id") ; 

680 ni_v First Name 85 rs . getField ( M f irstjname") 7 

681 raj/tastName - rs . getField ("last jYame"} ; 

682 m_vMiddleKame « r s. get Field ( "middle_name") ; 

683 m^vAddressl « rs .getField ( "address 1") ; 

684 m__vAddress2 - ts .getField ("address2"> ; 

685 m_vCity * rs . getField ( "city" } ; 

686 m_vState * rs. getField { "state") ; 

687 m_vZip = rs . getField {"zip") ; 

688 rn v Phone = rs . getField ( "phone") ; 

689 m vPasswoxd * rs. ..get Fie id ("password") ; 

690 m vUserStatus « rs . getField ( "user status"}; 
691 

6 92 ret u r n true; 



693 } 
694 

695 void CKCUser : : setOwner {CKCData * pobj Owner) 

696 { 

£97 ttijp®t?Qur&i: « pobj-Gwrrer ; 
69S mjp>objOwner->AddRef () ; 

699 return; 

700 } 
701 

702 void CKCUser: : removeOldReadings (CSdoRecordset & rs) 

703 { 



704 _variant_t vLastReading; 

705 mt Ti&nmbzz « 3-; 

706 string strBrror; 
707 

70S rs. setActiveCommand ("getReadings") ; 

709 cs. set Parameter ("kiosk^userJLd", m_vKioskUserID) ; 

710 if { ! :n_pob j>Ow.j*er - ocor. r. ■- >exec£tel r &> } 

711 { 

712 ni_pobjOwner->m_pconn->getLastError (strError) ; 
"?13 Error (strError. c_str O / IID_IKCData, EJFAIL) ; 
714 throw E FAIL; 

7X5 } 
716 

717 wh Lie ( ! r s . i s EOF ( ) ) 

718 f 

719 nNumber++; 
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720 
72,1 
122 
723 
72'A 
12b 
726 
727 
728 
729 
730 
732 
73-2 
731 

73- 4 
73S 
736 ' 
7*37 
738 
739 
740 
74.1. 

74- 2 
743 ) 
744 

/4b 



it (nNumbex >- ix^pobj Owner- >m lReadingsToKeep) 
vLastReading - rs.gstFi«ld threading dt") ; 



r s. move Next ( > ; 



r s . closs { } ; 

if (vLastReading. vt !« VT EMPTY) 

{ 

rs.setAcci ve Comma nd { M r emoveOi d " ) ; 

rs.3et. Parameter ("rftadingjdt*', vLastReading) ; 

i £ ( ! JRjpob J0w®er->sn pc o-rvn - > e. x e c »j- t e ( rs } ) 

i 

m_pobjOwner->ni_pconn->get:Last£rror (strError) ; 
Error (3trError7cj»tr O , IID_IKCData, S^PAIL) ; 
rinow B FAIL; 



retus 
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1 // CoBPReading. cpp : Implementation of CBPReading 

2 ^include "stdafx.h" 

3 tfinclude "KCPata-h" 

* include "CcMRMdSiss?. h" 

5 SincJade "rsjecdata.h" 

7 ///////////////////////////////////////////////////////////////////////////// 

8 // CBPReading 

10 STDMETHODIMP CBPReading :: Interf aceSopportsError Info (REFI ID riid) 

n i 



12 stafic I'onst I ID* srr(] «■ 

13 { 

14 JwTT n Tjm Pkapo i r> rj 

15 }; 

16 for (int i~G; i < sizeofffarr) / sizaof farr fOl ) ; 
I ' i 

18. if {lRlifteI&Eqi»i6U30{*a«{H#-rii-d)) 

19 return 3_OK; 

50 | 

21 ' return S FALSE; 



2-2 I 
23 

24 HRESULT CBPReading :: F.i nalCon st ruct (J 

25 { 



26 m_vpttl*«-vt: - VT HULL; 

27 m_vDiastolic3P. vt « VTJfU'LL; 
26 m vSystolicBP. vt ~ VT_NULL; 
29 nTvReadingOt. vt ■ VT_NULL; 

3.1 return S OKj 



->"» i 

3T4 void CBPReading: : Ft nalReleaseO 

35 [ 

36 | 
37 

3 $ STSJME7 HOD 1M ? C 3 PRea d i ng : : get__Ki csXU sex I D i VAR X Ahfr" *pVa 1 ) 
3* ( 



4 0 v a r 1? nt t wv? 1 ( * r>Va I false); 

41 vVal « nTvKioskUserlD; 

42 *pVal - vVai. Detach O ; . 

43 sreturn s «*j 



44 I 
45 

46 3TDHETHODXH P CBPReadimjr rge t_Rea din^ Da t^' (VARIANT *pVal) 

47 I 



42 variant t Wal ( *pVai, false}; - 

49 vVal = nTvReadingOt; 

51 ceturn 5 OX; 



52 ) 

54 STDMETHODIMP CBPReading :: put JRea ding Dace (VARIANT newVal) 

55 { 

5>6 m_vRead.ingat newVal; 
57 return S_OK; 

53 > 
59 

60 STDMETHODIMP CBPReading :: qet_SystoiicB? (VARIANT *pVal) 

61 { 



62 variant_t vVal (*j>Val, false); 

*pVa I =r vVsl . Dsrt sch * J ; 
.65 . return 5_OK; 



66 J 
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67 

68 STOMETHODIM? CBPReadinqr put _SystolicaP { VARIANT newVal) 

69 { 

70 rnjJSystolicBP « newVal; 

71 return S OK; 
"?> } 

73 

74 STDMETHODIM? CBPReading: : get Diastolics? (VARIANT *pVal) 

75 i 

76 w va-.-r.i3-nt_t vUa-1 ( *-pVal, false); 

77 vVcti - m__vDiarti.uiit;3?; 

76 *pVai = vVai, Detach 0 ; 
79 return S OK; 

o G » 
01 

y:-: STDMETHODIM.P CBPReading :: put_DiastoiicBP (VARIANT newVai) 
83 { 

&4 :?5_vD'iastolicB-P * rrew-Vai; 
return 5 OK_* 

go J 

B7 

STUMtfTHOftHKP CSPReading: ;get_yu.lse CVARiANt -pva.1.) 
29 * 

9G ^ v 6 1 i di'3 t^ t V V'o 1 i * uVa 1 , f ; 2 1 3 e » » 

92 *pVaI * vVal . Detach { } ; 

93 re t u r a S OK.; 

94 } 
95 

9o STffiBTHODIMP CBPReacUny ; ;put Pal »e {VARIANT newVal} 

97 f 

98 jn_vPu.l se ~ newVal; 

99 return SjDK; 
100 } 

102 ////////////J/////////////, '//ft'//////////////////////// ////////////////////// 

5 03 // internal 0+ interface 

104 bool CBPReading: :load (CSdoRecordset & rs) 

105 I 

107 Tft^vDiastolicBP ~ rs.getField {"diastoXicJsp"} ; 

108 iiTvSystolicB? - rs.getField <"*ystoiie_bp M ) ; 

109 m_vReadingDt ■* rs .get Field { "\reading_dt") ; 

11U m vKioskUserlD * rs. get Field ( ""kiosk user id" ) ; 

111 return true; 

112 } 
u:.< 
114. 
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1 // CoKC Data. cpp ; Implementation of CKCData 

2 § include "stdafx.h" 
? n include "KCPata.h" 

4 ^.include "CoKCData . h" 

5 g include "CoKC-iteex -h" 

6 $ i n c .1 i t de " r eg t s z r y kc ua ra . h n 

7 frin elude "Encryptor . h" 
8 

9 ^include "rs^kedata . h" 
10 

11 H RESULT CKCData: : FinalConstruct 0 

12 ( 

13 m_lKioskXd - 0; 

14 m__pconn ■» HULL; 

15 return CoCreateFreeThceadedMarshaler i 

16 <M*ff:r>nr-rr>n i nnflnknown M . *m nHn VMa r«?h« 1 <* r . n \ : 

17 } ' 
IS 

i $ vo i d C KC Da t a : : Fx na I Re iea s e 0 

20 { 

21 close (5 ; 

22 m_pUnkMaxshaler . Release ( 3 ; 

23 ) 
24 
25 

26 /////////////////////////////////////// /////////////////J /////////// ///////// 

21 // CKCData 

28 

23 STDMETHODIMP CKCData: : I n t e r t a c e$ uppo r t $ E r r o r I n t o { RSFI I D rild} 

30 ( 

31 static const: arr[j « 

32 j 

33 fiIID_IKCData 

34 \ ; 
35 

36 Cor {int i~0; i < si?.ecf(arr) / sizeof (arr f 0] } ; 
3? ! 

38 .if (InXineIsEqualGUID(*arr [i],riid) ) 

3^ return 3_OKr 

40 j 
41 

42 leturn S FALSE; 

43 > 
4 4 

45 STDMETHODIMP CKCData: : open () 

46 { 

47 H RESULT hi - SJ3K? 
48 

49 try 

50 { 

51 CRegistryKCData registry; 
$2 i i i ! reg-i at r y . open { I ) 

53 { 

54 Error (registry .m_strLastError . c^strO , IID_IKCData, E_FAIL) ; 

55 throw E_FAIL; 

56 } 
57 

5$ m^lKioskld » registry. ni_iKioskId; 

59 itTlReadingsToKeep = registrv.m_lNumberReadingsToKeep; 

6U 

61 if (mjpeonn !- NULL) 

62 delete ro^pcoaa; 
63 

64 m_pconn ~ new CSdoConnection; 

65 

66 // these options are not compatible with access driver 
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m_pconn->setConwiitOptionsOnConnect (faia«) ; 

6 8 . mjp cao.D - > na^Rro v.idat (fa 1 s e ) ; 

59 m_pccr.r.~>cctFcrwardRcccrdoctTcCpcn ( false) ; 
70 

71 coring strCcnn - "DSH~"; 

?2 strConn +«= registry. m strKCDataSource + ";"; 
73 

74 if ('ntj^nn-^nnnprr/ KtrC.nnn.r xtr{) 

75 registry. m_strKCUser.c_str 0 f 

^ 6 r»g i. s t ry.m_.sr. r KC P *wwt H . r r. r { ) ) ) 

78 string strError; 

1 9 m_pconn->getLastError CstrE.rror) ; 

SO Error {strError. c str() ( IXD IKCData, £ FAIL) ; 

81 throw £. PAIL* 

83 } 

84 catch (MRES0.LT hxEzror) 

85 { 

86 hr * hr Error; 

Hi } 

88 eal-M...} 
{ 

50 hr « £_FAIL; 

91 J 

92 

93 return hr; 

94 } 

96 STDMETKODIM? CKCData :: close O 

97 | 

£6 i f (m peonn) 
99 { 

100 ttijpconn ~>close ( ) ; 

101 delete m_pconn; 

102 \ 
103 

104 mjpconn « HULL; 
10b retura S OK; 

106 } 
107 

JIM 5TDMETHODIMP CKCData : rbuildRegistry f) 

109 { 

110 HRBRfl-LT hr - r>_OK; 
ill 

112 CRegistryKCData registry; 

113 if fl registry. buildlnitial O ) 

114 Error {registry. m^strLastError.c str 0 , IID_IKCData, hr - E_FAIL) ; 
115 

113 return Irt; 

117 } 

118 

119 STDMETHODIM? CKCData :: get KioskUser (VARIANT vKioskld, VARIANT vldType, VARIANT * 

pvDispUser) 

120 | 

121 Variantlnit (pvDispUser) ; 

122 _variar*t_t vRetV»£ ( ^Si-spa-tch *) H^LL, false)-; 
123 

124 H RESULT hr = SJ)K: 
125 

126 try 

127 { 

123 Ci6__KuuctLct ia; 

129 rs,setActiveCommand( M cmdGetById") ; 

130 rs. set Parameter { "alternate^id", _variant_t (vKioskld) ); 

131 rs.setParameter { M id_type" f ^_variant_t (vldType) ) ; 
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132 \v ( !m_pconn->execute (rs) ) 

133 { 

134 string strError; 

3 35 mjpeonn->getLast Error ( strError) ; 

Error (strError. c_str C7 , IID_IKCData, hr ■ £ FAIL) ; 
i 37 hrow hr ; 

138 } 

140 if (Irs.isEmptyO) 

141 4 

14i CComObjecr<CKe T Jser> * pobjUser; 

143 

if ( FAILED fhr » CComObject<CKCPser>: :CreateInstance UoobiOser ) ) ) 

145 { * " 

146 Error ( "CComObject<CKUser> : : Createlnstaace { ) failed.", IID- XKCUser, hr)v 

14*? throw hr; 

1*8 } 

149 

ISO pobj Use r ->se t Owner ( t: hi 5 ) ; 

VSl TD?e3nAr^h * nTDisn = MTJI.T,; 
152 

* 153 ( FAILED- (hr - pobj tfs-sr-- x&z&zylnt&z f acMI5S_I&isp*tefc, (void ■♦♦)■ s * 

piuisp) j ? 

■154 { 

155 Error i "Querylnterface (IDispatch **) railed", IID_IKCUser, hr) ; 

156 pobjUser->Reiease O ; 

157 nr.^ hr; 

i So ; 

159 

160 vRfttVal - pIDisp; 

161 

162 pobj Use r~>load {rs) ; 

163 j 

164 } 

165 catch. {__coffi_6xror & e) 
ifcfe { 

167 _bstr t bstrError • e. Description () ; 

163 Error? (char *) bstrError, IID_IKCData, hr » e. Error O > ; 

169 } 

.170 catch (HRES'JIT h r Error }• 
.171 

172 hr » hr Error; 

173 } 

174 -a*-ch{...) 

175 { 

1 /* hr » E FAIL; 

177 } 

179 

179 *pvDispUser «* vRetVai; 
180 

181 i*r* i rii hr ; 



182 } 

184 STDNETHODIMP CKCDato : : 9«tLCUser {VARIANT vliOyOli, VARIANT *pvUset) 

185 { 



166 Variant In.it (pvUssr) ; 
187 

188 variant_t vRetVal ( (IDispatch *) NULL, false); 

1PQ 

190 H RESULT hr - S OK; 

1 91 

i9J> »:rv 

193 \ 

194 // check to see if IX user 

195 Crs_lifeclinic_users rsLC; 



c:\Documents and 3ettings\Biliy\My . . . \Fatents\lCServices\KCData\CoKCData . cpp 



4 



196 rsLC.setActiveComnand<"getByName") ; 

197 rsLC. set/Parameter ("user^narae", _variant_t { vLogon) ) ; 

*} CM ii Mm nrnnn->PW(arntD(rfii,r) ) 

199 { 

700 $trir\q ^tvRrro^T 

201 m_pconn->gecLast£rror (strError) ; 

202 Error CstrError.cstr {}, llD_IKCData, hr ~ E_FAIL) ; 

203 throw hr: 

204 } 
205 

206 vaxia«t_l vUset^amfc; 

207 _varianfc_t vUserPassword; 

208 _variant_t vCpild; 

209 _variant_t vCJser; 
21G 

211 i£ {IrsLC-isEssptyO ) 

212 { 

213 vCpild - rsLC.getFicld{ fT iifcclinic_id*) ; 

214 string strEncryptedPassword; 

215 string strPassword; 

y^f t r ?T.C, get Fi d ( ,, n?s?Wo> r «1 w , St r^nc^ypted^SSwnrri) ; 

217 if {strEncryptedPassword. size 0 } 

219 CEncryptor encrypror; 

220 encryptox. Decrypt (strEncryptedPassword. c_str 0 , NULL, strPassword) ; 

221 vOserPassword « strPassword. c_str () ? 

222 } 

223 vUserName ■« rsLC. get Fie.l d ( "use rename" J ; 

224 rsLC.closti ( ) ; 
225 

226 if (FAILED (getKiosfcUserCvCpild, variant: t { tlonq) idTypeJ<C> # fivRetVal))) 

227 throw E_FAIL; 
228 

229 IKCUscr * plKCUscr ~ HULL; 

230 booi fNewUser <= false; 

23 1 i f (vRetVal . pdispVai = 3 -- TOLL) 

232 I 

233 if ( FAILED {createUser (SvRetVal) ) ) 

throw F. FA T T. : 

235 

236 fHew^se* « true," 

237 ) 
238 

239 if (FAILED {hr « vRetVal . pdispVal->Ouery Inter face aiD_IKCUser, (void **> & * 
pIKCUser) ) ) 

240 i 

•?41 s Li stream sLxatErivJic; 

242 strmExror « w pTDispatch->Querymtexface (HD_lKCuser) failed. Error « 

243 s t r u.E.v- rox « s cd. : : hex « ft x « j . ; 

244 Error (strmError . str {) .c_str{) , IID_IKCData, hr) ; 
?4S throw hr; 

246 \ 
24? 

248 if (fSewGser) 

249 ( 

250 DiKCUser->addAlternateID{vCpiId. _var iant_t { ( long) IdType_LC) ) ; 
>5| ptKrj|fter->pur_iift*rKrAritp i^rian.r^ri Uongj usrar^u'.npyKi;) J ; 

252 piKOTser->update ( } ; 

253 * 
254 

255 pIKCUser->put JXUser (vUsexName) ; 

256 pIKCUser->pat_LCtassword(vuserPassword) ; 

257 pIKCUs&r ->ReJ ease { ) ; 

258 } 

259 ) 
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bstrSrror ~ c. Description () ; 



i 

nr - hrErroz; 

) 

catch < . . . ) 



nr * £ FAIL; 



♦pvUser - vRetVal. Detach 0 ; 
return hr; 



3TDMETHODIMP CKCData : : crea teUser (VARIANT 4 pvUseri 

fcr = S_OK;. 
boot fTiauiBeyUu - false; 
strinq strrError; 

CC©mObj*ct<CKCUser> * pobjOser - huub; 



try 
i 



{ error ("There is no database connection*, IID_IKCtata, hr « 
rhrow hr; 

fiuiuiiitiiuiitiiiiiitiuiumuutinmuntiummm 

// create underlying database record 
fl r ar, s£c 5 a n ~ sajpeon r, ->bs 3 i 13 - x > ; 

Crs kcusex rs; 

rs.setActiveCommand( M cmdInsNewUser") ; ^ 

rs- set Parameter ("kioskJuT, _variant_t (a_lKioskId* \ ; 

if * 2 hs pcoGn*>eHficute < rs) ) 



//// 



m nronn->get.MstRrror <strF.rror) ; 
EKor<atrEcror.c_strO. IIDJKCData, E_FAIL) ; 
throw E FAIL; 



// qet the newly created id 

r 5 . se t Act iveCcssaaad $ M cssdSftt-HewUser " } ; 

if J t » jpeotw*-->execiste i rs 5 > 

m P conn->getLastError<strError) ; 

Error CstrBrror.cjstrn. IIDJKCData, EJTAIL) : 

^variant J: vHewId - rs .qetFieid ( tt kio3k_user_id M ) ; 
r*. close ( ) ; 

// mark record as in use 

rs . setActiveCommand( w setUserInOse M ) ; 

rs" <*etParameter ("in use", _variant_t (-1L) ) ; 

rs.setParaxneter rkiosk_user>d", vflewld) ; 

i f \ ! r?._pcor«rr->execute ( rs > * 
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326 m_pconn->get.i*astError (strError) ; 

327 Exxo.r.(SLt-rilr.rar«c_jstx(,W IXD .IJKCData^ E EMI4; 

328 throw K FAIT ■ 

3 x $ } 

330 

331 // pur; primary id in id map 

332 r.s. 3€tActiveCommand( n putIdMap") ; 

333 rs. setParameter ("k.losfcJLd", _variant_t (m_IKioskId) ) ; 

334 rs . s&t Pa z amGtex ( " a 1 1 er na t e_ i d " , vJSewI d ) ; 

335 rs.set^ara7r.eter("kios4:_^ser_£d w / vHevId) ; 
3 3 6 i f i !r pconn - ><? xec ut e ( rs ) » 

337 { 

338 m pconn-.>getLascError (strError) ; 

339 Error tstrError.c strO, IID_IKCData, £ FAIL) ; 
34-0 throw £ FAIL; " *" . 

3 4 1 t 

343 ////////////////////////////////////////////////////////////// 

344 // create coat abject 

345 if {FAILED (hr = CComObject<CKCUser> : : Createlnstance ( &pob|Usex) ) ) 
■*4 6 { 

347 Error T'CCc^Obj^^ f-iled", IID ZXC^ztz, hr>; 

348 throw hr; 
34 9 * 

350 pot>j0ser->setOwner ( this) ; 

351 pobjDser->rc_vKioskUserID - vHewId; 
55 *> 

353 

// return IDispatch in VARIANT 

355 IDispatch * pIDisp - 

35€ if (FAILED (hr - p^ji>s«x-><2mry2nt6«£am{2ID^Z&i9f>ateh # {void**) fcp£Dd3p>) 5 

368 Error ( "CCoraOb ject<CKCT3'ser>: : Querylnter face (IDispatch) failed*, XIV IKCBata* 
, hr) ; 

35°» chrov. hr; 

360 } 

362 ^sriar.t J: vRet jplDisp, false); 

36-3 *pvliser - vRet . Oet&ch (J ; 

3*i>4 

365 pobjtfser = HOLL; 

366 1 

A»>"5 catch* co?>. *; r *r nr v ** ' 

3« { 

309 __boti_^t h&tX&iLLuC — c . DeSCi Iptioii ( 5 I 

370 Bx-iur7(char *j bstrSrror, II0_IKCData, hr ~ e. Error v)J ; 

371 } 

372 catch (HRESuLT ulcllul) 

373 { 

'574 hr ~ hr Error; 

375 } 

376 catch*...} - 

378 Error (Unknown exception", llD_XKCBata, hr * E FAIL); 

379 \ 
380 

381 it (fTransBegun) 
/ 

3 0 3 * < S"C C EE-DETi i h r * \ 

3 & 4 m_pcx>n*n~->'C-oir»r,vi t T r atvs { ) ; 

3*5 else 

"JSii rn j3COi:n->rol IbacfcTrans U ; 

367 } 
388 

389 // if pofciUser is valued then an error ocurred after its creation 

390 if {pobj'Jser !« NULL) 
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de 1 & t e poo \ u se x ; 



392 
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456 



return hr; 



STDMETHODIMP CKCData :: get UnexportedData (VARIANT *pvData) 
H RESULT hr » S OK; 



Variantln.it (pvData) ; 
string strError; 



try 



Crsjccuser rsUser; 
Crs_bloodj> res sure rsBP; 
Cr s_ we ig h t r sWe i gh t ; 
Crs_alternate_id rslds; 

rstfser. setActiveCoirjnrand{ w gettfnExported*) ; 
rsSP. setActiveCornrftand ("getUViExported") ; 
rsWei9ht..setActiveCcrr ! :^ad("geta^.ExportGd ,, } ; 
raids. setActiveCommand ("getUnSxported") ; 

.1 1 ( I rs pccn n - > exec u t s { r sU ssr ) J 
{ 

mjpconn- >getL2sr:Brror » scrError) ; 

Error (strError. c_str () , II0_rKCData, E FAX!) ; 

throw £ FAIL; 



Hijpconn->g€:tLa at Error (str Error) ; 
Error (strEcror >C_Stt() , irD_XKCDa.ta*, £_EAXL-) ; 
throw £ £AXL; 



( tm_pconn->execute (rsKeight) } 
mj3conn->getLastError (strError) ; 

Errnr jsrrFrrnr .r^rr () . TTH TKr^ffl. P. P ATT.> ; 
throw E FAIL; 



if ( !ni_j;conn->execute (rsXtfsH 

p GOTO " * I «rKirrnr ( *r r k rnr\ r \ s 

■Err-ci^ strError". c_s.tr (} r IIO^IKCData, £_FA3Xr>; 
throw S TAIL; 



GXfftiDocutt&at: xdocXDsUa {"<kio3k_data/>"5 ? 
xxiacXXi^ta.^setllpperCa.seTa^.s ( fa ise) ; 

rsBP. toXml (xdocXData) ; 
rsWeight. toXml (xdocXData) ; 
rslds . toXml (xdocXData ) ; 

string strXrol; 

xdocXData .-getXML (strXrol) ? 

_variant^t Wal - strXml . c_str () ; 
*pvData « vVai. Detach 0 ; 
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437 catch i_com - axrojr £ &) 

458 i 

450 Error. ( (BSTR) e . Description {) , IID_IKCData, hr - e . Error ( ) } ; 

460 } 

461 catch (HKESULT hr Error) 

463 hr - hrCxzox; 

4fi4 } 

*£5- catch*. . 

466 f 

467 hr - E__FAIL; 

468 ) 
469 

47 u return "tr 

471 } 

472 

473 STDMETHODIM? CKCData: :*naxfc Data Exported ( 5 

474 { 

475 H RESULT hr « SjDK; 

476 string strError; 

477 boci fTransStarted * false; 
47 §■ 

479 try 
4*0 f 

4 o r Cx & c *c~cx r ste- * 

4 S 2 C r 5 _hl or>d_pr ess j 3 r ft r 56 P ; 

483 Crs_weight rsWeight; 

484 CrsjUternate id rsids; 
485 

486 r s u 3 e r * s e t Ac t i ve Comma n ct { "ma r. k fcx jso r c e d " ) ; 

487 rsBP»setActiveCommand ("mark Exported" ) ; 

488 rsWeight . setActiveComraand ( "matkExpor ted") ; 
4B9 r s Ids . setActiveCommand ( "mar k Exported *) ; 
490 

431 1 r. 1. i (. CT'&i«t4M^>ivM £ wwti « «i ut^>mi~>wt£u iitT t ra ( j ; f 

452 { 

493 m_pconn->qetLast Error (strError) ; 

4 $4 Error ( strError * cj&tz i ) , II D_I KCDa fca , E^PAIL) ; 

45f5 throw E_FAIL; 

*{**: 1 
497 

498 if ( * TT3 n*":nnn->p , xpr:urp { r«?H«f»r) } 

499 { ' ~* 

59-0 m_j>cw*-iv->«get Las tBr. r or (-st r E r r ox ) ; 

501 Error (strError . c str * > , I ID I KC D-?. 1 * E FAIL*); 

502 throw 8_FAIL; 

503 } 

505 if { !ro_pcorm->execute(rsB?) ) 

,sn* { 

SO - ? Tw pccr.n , ~>c;ot2LC'ot Sxxcx f otxEx rox * 

SOB Srrox (strError. c^str f/ f IID_IKCData, E_FAIL/-; 

50* throw E_F&ILj 

510 } 

511 

St-V if I'm r»rAnn->Dvof*ivr<* i >*«*toift'hr i \ 

513 { 

514 i[i_pconn->yeLLaslErxor {six Error) ; 

515 Error (strError. c_str{) , riDjrKCData, KJFArfc) ; 

516 throw E_FAIL; 

517 > 
518 

51 9 if f'm nrnnn->pyprnt*<a { r«?Tds) ) 

520 { ~* 

521 m_pcon n~->get. La 5 r. Br r or { s t r E r r o r ) ; 

522 Error (strError. c str(), IID IKCData, £ FAIL) ; 



523 
524 
525 
52 o 
527 
52$ 
529 
Mft 
531 
532 

5 3 > 

534 
535 

537 
c 23 

359 
54t> 



^V Docgimtg and SettingsWIl^ ■ ■ APatentsSLCServir^NKCDataXCoKCData.c^ 
shrow E F*VJv* 



t 



^rrcr { (BCTIU a . Description ( ) , 

catCh (HRF.STU.T hrP.rrrir) 
I 

hr * h r Error ; 

catch (. . . j 
I 

hr ~ K ff.Uu 



i 



A. A, 
( 



i 



m pconn->conunitTrans {) ; 



^> "1 X. 

542 

s<n else 

547 return hr; 

548 t 

550 STDMETHODIMP CKCData :: mark Data Unexpor ted {) 

"RESULT hr - S_Os\; 
strirvg stzEzror; 



552 
553 
554 

556 

$$1 

558 

559 

560 

5G1 

562 

563 

564 

565 

5^6' 

56* 

568 

569 

57 V 
572 
STS 

514 
575 
576 
577 
573 
5?9 
530 
581 

5#3- 
5-&4 
5*5 
536 
587 



tty 

Crsjccuser rsUser; 
Crs bloodjs>ressufe tsBP; 
Cr^^eight rsWeight; 
Crs_alternate_id rslds; 

rsUser.setActiveCofwnand< w niarkanexported w ); 

if o (fTransStarted - mjpconn->beginTrans ( j ) ) 

E««£tr Error. crti«, II&I«CDat*. E_EAII>) ; 
C h r E F A 1 1» ; 

) 

* m P conn->qetLastError<strError>; _ 

BwrUtrtrror.c.strl), IIDWCBat*. ^FA^} ; 
throw E FRIL; 



threw E FAIL; 



591 
592 
593 
504 
595 

59? 
5£8 

600 
601 
*>02 
603 
004 
o05 
so e 

607 
608 
60^ 
610 

61 i 
61? 
613 
614 
615 
616 

*i 7 
6*1 ° 
619 
620 
621 
622 

62 i. 
624 
6?s f 
626 
6?? 
628 
629 
630 

633 
633 
6'34 
635 
636 
637 
$38 
635' 
640 

C A 1 

VI X 

642 
*43 
644 
€-4 5 
64 6 
647 
648 
64.9 
650 

o32 
6'53 
654 



m_pconn~>qetLastError (strErrcr) ; 
ErroristrErwr.cj^O, HD I KCDa fca , E FAIL) • 
throw s FRIL; ~ , 



f * 

«Lj>c-cwKr->ge-tLa-3 ter ror (strErrcr } ; 

* 
r 

, £rrorf <^ e. Description o, /IDjKuata, hr - e.grroxOJ; 
cetcMticvESU&T u-irEitoi ) 
hr - hrBrror; 

} 

ca tch { . . . } 
i 

hr m E FAIL; 



if (fTransStarted) 
{ 

ii {SUCCESSES^ hr ) > 

»J?oom^>oommi .tTra-iya ( }• ; 

else 

m Jpconn->roIibacfcTrans < > ; 



return hr; 



HTDMETHODIMP CKCD»t»: :.iinporfcIC!J« ft «< VARIANT vFil^nrm) 
H RESULT hr - S OK; 



crv 
f 



CXmlDocument HdocLCUsers; 

throw £ E&XU; ~ ' 



3er3.getlt&ir,{ t, cpi_u3er ,l l SelTable) ) 



if (Kdoc^ 
{ 

xdocIiCUsers.piishCurrent (Sellable) ; 
Crs_lifeciinic_users rsLCOsers; 

if ( I appi>^abl6' (xd^l/CU-aer s, ra&Ctfefeca, FLAG SN5&R? j FLAG ep&ftPfilt 
en row e FAIL; — """^j/ 

^ xdocICOsers.popCucrent 0; 
catch <_ccwn_errox l e) 

i 

&ror((^rki e. inscription <», ixujtxuat*, hr - e.&xorci); 



I 

catch (KRESIiflT luEctoi) 
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o>5 
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6S7 

-659 
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-J 

664 
bbt> 
666 
66? 
668 { 
669 
670 

672 
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67S 
676 
677 
673 
679 

■» 

Ova 

682 

694 

£&5 

688 
6*9 

6S1 
6*2: 
693 
694 
695 

697 

MM 

700 
701 
702 
703 
704 
705 

707 
708 
709 

no 

711 

71? 

■7-11 

714 
715 
716 
717 
1 i*f 
719 
720 



i 



hr = hrError; 

catch (...) 



STDMETHODIM-P CKCData r : j.mp<vrr.Data (VARIANT vFiifcNamft) 
{ 

H RESULT hr - S_OK; 

u ry 

1 string strFiUBssae - (char *) (J&atrJ:) vFil-e»a»e; 

Oxini Document dbcfrans; ^ ^ „. ri ^n 

if (!ioaclXraime(strFileName.c strO, docTrans, true)) 

throw 

CXmiElcment elTable; 

// apply id map to the database 
if {doCTrana.aatltamC-kc^idjaap". teiTable) ) 

docTrans.pushCurrent (Sellable) ; 
Cxs alternate id rsldttap; 

if 7**pply?afrle (docT rsrvs, r*3dHap, FIAGJJUMWH 

throw 5_FMl; 
docTrans .popCurrent ( ; ; 

t 

) 



* ^aonfWK) e. Description U, iYiWifcDaca, hr - e.lTrrorO); 
f 

catch i'HRESuLT h*£i tot * 
{ 

hr - nrError; 

) 

catch (...) 
( 

hr « £ FAIL; 

} 

return hr; 

ATDMETISODIM ? OKCDaf.a: : r.hftcfcKiosktJserTD (VARIANT vKio*kID, VARIANT *pvIDExi*t*> 

KRESOLT hr « 5_OK; 
booi f Success ■» false; 

try 
f 

C.rs kr.riafca rs; 

r5.setActiveCornrnand( M cmdChecKlD£xists ); 
rs. set Parameter <«alternate_id", _va«antj: (vKrosklD) ) , 



string stiErtoi; 
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21 m_pconn->gA-tljastError Ut rError) ; 



tnrow n: 



723 
724 
7*5 

72$ if {'rs.isC 

727 fSuccess - t rue; 

7?R else 

729 fS:;cc«s - false; 
730 

~Vi » 

732 catch ( com error £ e) 

733 f 

7f4\ _^* T *c_^ ^sr v&c ~ ^.r. , »ft*<?.- R vr* r ior * n * 

735 -Evxez ■{ {char V) b^tr&rro-r^ YlDjlKcJoita-, hr « ©.Error O ) ; 

730 f 

737 catch (HKtftfu'Lr hxtirtorj 

738 f 

739 tit « !i;Ei!iui; 

740 } 

741 catch (...) 

74- 2 f 

743 hr « fi FAIL; 

744 } 
745 

746 _variant_t vRetVal - fSuccess; 

747 *pvi-UK»is.t3 » vsetval; 

748 return hr;. 
749 

751 

75! booi CKCuai,* : :^H^yTrful*s'(C>CflilD^n:umHnis £ xciuc, C3«t.jR«t:citus«l. £ t5<t unsicn^d 3h©-l 

fupdateKUcjs) " 

7ti3 { 

754, CXnrlEienient elTabie; 

755 CXsABlanent elftcw; 

7 5 h xcoc . c C u r r e n ^ ( *». e IT* b I 5 ; 

75- 7- booi fRowPound elTabie.getrirst UeiRcw) ; 
758 while ffRowFound) 

7 5£ (• 

// check if record exists 

761 xuoc. pashCui lent ( SeiRcrw ) ; 

7 &2 rs.se c Ac t I veContma nd { pply£>; i s t s ~) ; 

763 rs.getActiveCoi^andO->ciearParras() ; 

764 c«-.getActi.veCoiwnar\d<)~>aetParro30n} ? y(xdo<;l ; 

765 xdoc.popCurrent () ; 

7€7 ( ' . 

766 .string sr.-r Error; 

769 ra_pconn->getLastErrox istrBrror) ; 

770 Error<strError.c_str(), ITD^IKCData, E FAIL) ; 

771 return false; 
7-7< 

7 7 3 boo 1 £E« i s-t s- * I rs-. i sEmpt y { > ;. 

' ' ' 4 15 . ciuat! i J ; 
775 

J7€ // if row doesn't exist and f Inserts true then add it 
{ : f Exi^i,^ { H/pun L^Flnu^ * FLAG IKSFiRTi i 

778 { " 

779 xdoc.pushCurrent (SeiRow) ; 

780 rs.se tActiv&Co^&ri&i™ apply lit^zte") ; 
7 ®1 rs . gctActivcCommand {) ->clcarParms (5 ; 

782 rs.getActiveCoiBmandO ~>set?armsGnly (xdoc) ; 

7 B3 xdoc. popCur rent () ; 

7M if Mm nnnnn->PXf>rj]rAfrsi l f 

785 [ ~* 
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7&6- string strError; 

787 mjpeonn->getLastError (strCrror) ; 

7RS RTrnr {at TKrrnr.r. atr () t TXt) TKCnat*. P. ' FA T T.) ; 

799 return false; 

7^0 } 

7 93 // if row exists and £ Updates true then update in 

7*4. it^Lsta fc*. i cyn4a.n!&tls.«i« t«!fiii Mtu&ttt) i 

795 { 

7;96 xdoc.pushCurrent (frelRow) ; 

797 rs . setActi veCommand I "applyUpdate") ; 

798 r s. get Ac t i veComma nd {) ~>clear Farms () ; 

799 r. s, g«t Ac ti veCommand { ) ->s«tPa fcmsQnly {k4&g) ; 

800 xdoc.pqpCurrent () ; 

801 if f! mjirr)nn->pxpriil-P { r«?) ) 

802 { ~* 

803 string st.r Error; 

804 m _pcoan->getLastE;r.ror (strExror) ; 

805 Error ( strSrror . c_str {) , IIDJCKCData, E^FAI't) ; 

806 return false; 
#07 ) 

808 } 
809 

810 fRowFound « el Table . getNejct (celRov.) ; 

811 ) 
812 

813 return true; 

814 } 
915 ■ 



81S boo! CKCBa-ta: : los-dX-mi Fi 1 e p-sEFiieNarae, CXralDoctsmervt G Kdocftes-ult, bool 
f En c t *T?t } 

8 XT { 



818 booi f Success * true; 

820 stringstream strmError; 

821 H RESULT hr « S_OK; 
822 

823 cry 

f 

825 strmError « "CKCData : : loadXmlFiie 0 : n ; 
826 

#2? // open import file name 

929- FILE * p»tseaat ~ f open (pssFiie&asae-, "rb"> ; 

829 if fu»Li«jEiiu — - NULL) 

030 { 

831 strmError « "unable to open file [ H « pszFileName << **.]."; 

error (strmError ,str {) .c^strO f IID^lKCGata, £_FAIL) ; 

813 throw .EL .EAXL; 

834 } 

sis 

836 // get the size of the file 

» \fr><J t-A-W* C*»i»# vr t ljuuiv / * 

838 long IFileSize » f tell Tpst ream) ; 

.... , t ., . , , , , - . ^ 

MQ 

Ml // allocate file buffer 

•542 unsigned ch«r * pBuff - new unsigned char (IFileSize * X] ; 

843 if (pBuff -« NULL) 

844 ( 

*45. trt.EwfcuTOr. « "uwbla to &IL&&&£ tils. bM&£ftr.%. sKB«T2r*"Ji 

-84-6 E-r r or { s-t-rmEr r or .s-trO.-c_9trO, IXDJl KCDat& » -E_FA3 &} ; 

8.47 throw E__FAIL; 

040 } 

849 pBuff [IFileSize] - 0; 
050 



852 

SSI 

251 
BS5> 
856 
857 
858 

seo 

861 
#62 
863 

865 

86*? 

870 
871 
*7> 
873 
874 

he 

h 7 7 
878 

■eao 

8*2 
883 
884 
885 
R86 

8&8 

890 
891 

M M > 

893 
R94 
005 

899 

901 
90? 
903 
£04 
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// read che import file 

long ISytesRead - fread(pBuff, 1, lFi.USize, pstream) ; 



14 



. 5 trmF,rror « "CKCnata : : import Oat* ( ) f*n*<J. flneb^e to read fiU I ? 

srrmError « pssfxleName « "*}-"; 

Error (strmError.strO .c_str<>, HDJCKCData, E^FAIL) ; 
chcow E FAIL; 



// decrypt: the file to xmi 
string strXmlData; 
it (f Encrypted) 

C&ncryptor encrypt; ^ fc . 

encrypt. Decrypt ( (LPCSTRJ pButt, NULL, strXmiData) ; 

J 

srrymiria.rp - (const cnar "> ptfurx, 
deists M pBuff; 
// parse the xml 

vdccResuic . loadDocuavent {5trXmIData.c_str {) ; ; 



1 



SocrL-1^ M zFileNane « "1 . Error *v 

strmError « "Unable to parse import trie | « pazfciieMane 

ssriRErro-r « strPa-raeBrrcr « "1."; , 

?. Mlf ,,;.si rmrrror.si r 0 '■().• TTn_TKr.n*. *, '^'Wi 

tnrow E FAIL; 



} 



catch < com error & e) 



f Success - false; 

catch (H RESULT hrError) 
i 

» ♦ t 81 r*.'t ~ - t.0Cr 
fSuccess * false; 

) 

eaten ( . . A 
1 

nr. ■ £ FAIT*; 

fs access * false; 



tecum fSuccess; 
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1 // CoWeightReading .cpp : Implementation of CWeicrhtR^adina 

2 ^include "stdafx.h" " ~ v 

3 If include "KC.D3ita.h M 

1. #iriciude "CcSteigbtftMdir-5. " 
5 8 include "rsjkoda-ta .h" 

1 '""^^ 

10 STDMETHODIMP Weight Reading : : Xnterf aceSupportsEr ror Inf o (REFIID riid) 

12 static const I ID* arr[] = 

13 { 

16 for (int i*0; i < siseof (axr) / sizeof farr f 0 ) } ; i++5 
*> t 

i"f SI&lineSsEq&alGOIJM+arr £i],riid} > 
15 return S OK; 

20 } 

21 return S FALSE; 

22 \ 
23 

24 H RESULT CWe ight Read x ng r.ina iCon struct O 

25 { 

£6 m_vKi-rt-5kU-5ft.rTD.vt - VTJttJLL; 

27 ro^vWeight. vt * VT_MULL; 

28 m vReadingDate.vt «* VT NULL; 
29 

30 return s u&i 

31 } 

33- VQ i d Cmri cfTT c w<ra i ng - Fi r?<i 1 rve I cere**? ■{ / 

34 { 

35 return; 

36 } 
37 
38 

39 STSMET^ODIHP CWeig«h*Rea<din-g: rgetj*ei-gfct {VARSMJT ♦pVal) 

41 _variant_j: Wal(*pVal, false); 

42 Wal - nTvWeight; 

^pvat! - vvaL*. t*^c^o? \-\ ? ■? 

44 return S_G&;- 

45 » 
46 

41 S7DMBTHO0IM? CWeightReading: :put Weight (VARIANT newVal) 

48 { ~ 

49 . m_vWexght = newVal; 

50 return' $ 0*; 
51. * 

53 ST0MBE.HO0IMP CWeightBeadAP.grw *pval) 

54 { 

55 _variantj: vVaiCpVal, false); 

57 *-pV«3l * vVal. Detach {) ; 

58 return 5 OK; 
S3 } 

60 

61 STHMRTHOn^MP CW*ighfcft**ding: :g*t ReatfingDat* <VMet*tiT~ *pV*<M 

62 { . " r 

63 _vaxiant_t Wolf+pVal, false); 

65 *pval * VVal. Detach D ; 

66 return S CK; 
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67 
6$ 

fey 

70 
n i 

I A 
~> 

73 

74 

75 

76' 

77 

TO 

79 

H !_l 

81 
32 

S4 

85 
S6 



STDMETHODIMP CWe ight Read i ng : : put Heading Date (variant newVa.u 

m^vResdingDate - newVal; 
return $_OK; 

) 

////////////////////////////////////////////////////////////////// 
// internal C++ interface 

m_vReadIngDate • is .get Field { M reading_dt w ) ; 
rnvKioskUserlD * ts .get Field ( "kiosk jjser_id H ) ; 

return true; 
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1 // LCKioskSexver . cop : Implementation of WinMain 
2 

4 // Note: Proxy/Stub Information 

5 // To build a separate proxy/stub DLL, 

6 // run rnnake -f LCKioskServexps . mk in the project directory. 

8 -ftinclude "stdafx.h" 

9 #include *' resource ,h M 

10 tfinclude <initguid . h> 

1 1 H i n c 1 u de " t h r*a dMa i n . h " 

12 ^include "LCKioskServer . h" 

13 If 1. n c i xi d e " i s t r yKSer v«rr - ft M 
14 

15 jtenclude "LCKioskServer i.c" 

16 . 
17 

18 it include <stdio.h> 
19 

20 //////////////////////////////////////////////////// 

21 // MFC support 

Z2 L'fticsksarverApp __thsApp; 
23 

24 ///////////////////////////////////////////////////// 

25 // ATI support; 

26 CServiceMoc&le ^Module; 
27 

28 /////////////////////////////////////////////////// 

29 //Global tiecal rat ions 

30 CLogNTEvents _logEvents 'i "Kiosk Server"}; 

.31 Clog Tile- logFile .( "a: WlCK.ios.kS ex vex. log M ) ; 

32 CLog Debug _iog Debug; 

33 CLogMulti _log&ll; 
34 

35 BEGXH OBJECT MAP (ObjectMap) 

36 END 0BJECTJ4APO 
37 

38 

3* LPCTSTR fl-ndCneOf {LPCTSTH pi, LPCTSTR p2) 

40 { 

41 while (pi !* MOLL *pl ! = NULL) 

42 I 

4 3 LPCT3TR p - p2; 

44 while (p !■ &U1L *p J* M r JLL) 

40 <: 

46 if (*pl *p> 

47 return CharNext (pi) ; 

48 p« CharHext(p); 

49 } 

t>u pi = CnarNext (pi? ; 

51 ) 

52 return N-U-LL; 

53 } 
54 

55 // Although acme of these functions are big they are declared inline since they are ✓ 
only used once 

5.6 

57 inline H RESULT CSts rvi ueHodule i 1 Key iiter Server {BOOL bRecjTypeLib, BOOL boeivioc/ 

58 { 

59 K RE SUIT hr - Colnitialize (NULL) ; 

60 if ( FAILED (hr) ) 

61 cecum hr; 
ft? 

63 // Remove any previous service since it may point to 
•64 // the incorrect file 
65 Onir.stalii); 



k 
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66 

67 // Add service' entries 

69 UpdateRegistryFromResource {IDR LC Kio s K S e r ve r , TRUE) ; 
69 

70 // Adjust: the AppXD for Local Server or Service 

71 CKegKoy fcevAppiD; 

72 LONG IRes - fceyAppID,Open<HK£Yj:LA$S£$_ROOT, _T ( "AppID") , K£Y_WRIT£) ; 

73 if fiRes !- ERRORJ5UCCESS ) 

74 return IRes; 
IS 

76 CRegKey key; 

77 IRes - key. Open (keyAppID, Jt { "{BF823564-E93B-11D3-B88C-CC792EOOOO0O} ") , KE*_WRITE)tf 
# 

78 it (IRes !• ERROR_SUCCB5S) 

7.9 return IB&su 

81 

6*2 1 f f b'S'e r. v i c e J 

33 t 

84 key. SetValue ( JP ("LCKioskServer ") , JT ("LocalService") ) ; 

86 // Create service 

67 Install 0 ; 

69 ) 
89 

90 // Add object entries 

91 hr « CComModule: : Reg is ter Server (bRegTypeLib) ; 
92 

93 CuU»iniLial.i^« { ) ; 

94 return hr; 



95 "J 
96 

97 inline H RESULT CServiceModule : : UnregisterServer { } 



99 H RESULT hr « Colnitialize (NULL) ; 

IW- it (FAILED (h-r) } 
101 return hr; 

102 

103 // Remove service entries 

104 OpdateRegistryFromResource(IDR_lCKioskServer, FALSE) ; 
1Q& // Remove service . 

106 UniiisLeii i) i 

107 // Remove object entries 

108 CComModule: : UnregisterServer (TRUE} ; 

109 CoUninitiaiize ( ) ; 

110 return S OK; 



111 } 
112 

113 inline void C5e-rviceM©&;*ie: tin-it {J®hJSB3m*JBm<M+ p, HIHST&HOB h f mm v 

nServiceHsmeXD, const GUID* pi ibid) 

114 { 



115 CComModuie : : Init (p, h« plibid) ; 
116 

117 m_bService » TRUE; 
VI ft 

119 LoadString (h, nServiceNamelD, m^szServiceName, slzeo.nm_szServiceNanie) / siieof ✓ 
(TCttAR) } ; 

120 

121 // set up the initial service status 

122 mJiServiceStatus - NULL; 

123 m_status.dwServiceType - SERVICEJ*IH32_OWN_PROCESS; 

124 m_status.dw€urrentState ~ SERVICE_STOPPED;~ 

1.25 m_slaLus.dwCanlrolsAecepLed - S£RVXC£_ACCEi?T_STOP; 

126 m_status.dwWin32ExitCode - 0; 

127 mjstatus.dwServiceSpecificExitCode - 0; 

128 m status. dwCheckPoint « 0; 
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129 ^status. dwWaitKint. - 0; 

.130 ) 

131 

132 LONG CServiceModule: : Unlock 0 

133 [ 



,134 LONG 1 - CComModule: : Unlock () ; 

135 if (1 «» 0 s& !mJ>Service) 

i ^05t^>>»*e6^Me?«?ne (dwThre?»HTn, wm quit, n. nj ; 

137 return 1; 



130 } 

140 BOOL CServiceModule: : Islnstalled 0 

141 { 

142 BOOL bResult - FALSE; 
143 

144 SC^HAHDLE hSCH - : :Opt*nSCManayex {NULL, NULL, SC. MANAGER ALL ACCESS); 

145 " 
14 6 if (hSCM NULL) 

147 f 

H8 SC_HANDLE hService * : : OpenService (hSCM, m_szServiceName, ✓ 

SFRVTCP. QHRBY COM FTO) / 
14 9 if JhService !« NULL) 

150 { 

151 fofcesulx = TRUE; 

152 : rCioseServlceHandle (hService} ; 

153 » 

154 : :CloseServiceHandle (hSCM) ; 

155 > 

156 r e t t,i r n u Rt; suit/ 

157 } 
158 

159 inline BOOL CServiceModule: : Install () 

160 { 



161 if (TsTn.qfal 1 Ad M ) 

162 return TRUE; 
1-63 

164 SCJfANOLE h5CM : :OpenSCHanager (NULL, HULL, 3C_aAWAGER_AI i L_ACCSS3) ; 

165 if (hSCM — NULL) 

166 I 

167 Message Box (NULL, JT ( "Couldn « 1 open service manager*'), m_s:»ServiceName, MB OK); 

168 return FALSE-;. 
1G9 : 

170 

171 // Get the executable file path 

172 TCHAR s 2 Fi ie Path t _KAX PATH j ; 

173 ;.rGetJtodu.le.F;UeName(J3ULi: # s.zJVLLePattv, MAX PA.TK) ; 
174 

175 SC_ HANDLE hService « ;: Great eSer vice ( 

176 hSCK, m^szScrvice&ame, m szServiceHarr.c, 

177 SSRVICE~ALL_ACCE5S, SERVICEJfIN32_OWN_PROCESS, 

178 SERVICE DEMAND START, SERVICE ERROR_NORMAL , 

lVH SzmePath, NULL, NULL, _T { W RPCSS\U W ) , NULL, NULL} ; 

180 

1S1 if { hService — NULL}- 

182 { 

183 : :CioseServiceHandle (hSCM) ; 

184 MessageBox {NULL* _T( H Couldn't create service"), m azServiceName, MBjDK) ; 

185 return FALSE; 

186 } 

1HV 

188 : :CloseServiceHandle (hService) ; 

190 return TRUE; 



191 } 
192 

193 inline BOOL CServiceModule :: Uninstail { ) 



C:\Documents and Settings\Billy\My . . . XLCKioskServerVLCKioskServer . cpp 4 

194 { 



195 if ( I.IsInstalledO } 

196 return trijf: ; 
197 

196 SC_HANDLS hSCM - : rGpenSOMari-agei: (N-y-LL, NOLL, 5C_MA-NAGeR_ALL^ACCBSS ■} ; 
i99f 

200 If {hSCM — NULL) 

201 { 

202 MessageBox(NULL, JT {"Couldn • t open service manager"}/ m_szServiceName, MB_OK) ; 

203 return FALSE; 

204 i 
205 

206 SC HANDLE hService - Open Service {hSCM, szServiceftame, S£KVICE_STOP j DELETE). ; 
20? 

206 if {hService -» NULL) 

?nq { 

210 : :CloseServiceKandie (hSCM) ; 

211 Mess ageBox ( NL T L L , _7 fCcAslctar' t open- service"), nv_s sSer vi ce-Name , MB_OK) ; 

212 return FALSE; 

213 I 

214 SERVICE STATUS status; 

215 : rControlServiceihService, SERVICE C0NTRGL_ST0P, &statU3) ; 
216 

217 BOOL bDtjiett; = ; : DeleleServict; ihService » ; 

218 : :CloseServiceHandle {hService) ; 

219 : ;Close3erviceHandle (hSCM) ; 
220 

221 if (bDeiete) 

return TRf.lR: 

223 

224 MessageBo* {HSLL, _T{ "Service could- rtoz be deleted"/ , nvjssSeTvieeNatne, MB_OK) r 

225 return SALS £ ; 



226 } 
227 

228 //////////////////////////////////////////////////////////////////////////////■////////* 

229 // Logging functions 

230 void CServiceModule: :LogEvent (LPCTSTR pFormat, . 

231 { 



232 TCrtAK chMsg{204&j; 

233 va_list pArg; 
234 

235 va_j>tart (pArg, pFormat); 

236 _v-3tprintf (chKsg, pFormat, pArg) ; 

237 va end i pA r g J ; 
238 

239 CLoyM»yEvt:uL (LCSVJ5EKERIC, -1, chM»y) . Poal (__logAll) ; 



240 ) 
241 

?4? /////////////////////////////////////////////////////////////////////////////////////J* 
//////// 

243 // Service startup and registration 

244 inline void CServiceModule :: Start i ) 

245 { 



246 SERVICE jrABLE_EHTRY st [/.) * 

247 { 

248 { m_S2$erviceName, _ServiceMain }, 

249 { NULL, NULL } 

250 ); 

251 If (m bService I : : StartServiceCtrXDispatcher (st) ) 

252 { 

253 m bService ■ FALSE; 
?<S4 } 

255 if (m_b$ervice FALSE) 
25-fc R3Mi; 



257 ) 
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258 

259 inline void CServiceModule: : ServiceMain (DWORD /* dwArgc */« LPTSTR* /* IpszAtgv V) 

260 { 

261 // Register the control request handier 

262 -mjStstw.dtflCu-rrefytStarttt SfiKVfeB_6TAOT_W»BSiiG7 

2bj m hservicestacus = RegisterServicaCtrirtandler (n^szsarvicattanua, _Hanal-*r ; ; 

264 if (rnJiSer vices tatus NULL) 

265 ( 

266 CLogMsgEvent ("Handler not installed") . Post (JLogAil) ; 

2*7 return; 

263 t 

269 SetServiceStatus ( S ERVICE^ST ART^PEN DI NG ) ; 
270 

271 m_status.dwWin32ExitCode = S_OK; 

272 m. s ta.t.us . dwCh.eck£a int. « 0; 

273 m_atatus.dwWaitHint - 0; 
274 

Z1S it When the Run .function returns, the service has stopped. 

276 Run { ) ; 

277 

278 SetServiceStatus (SBRVICE^STOPPED) ; 

279 \ 

261 i n I i ne vo i d CSer v i esMod ule : : Ha ndl e r i DWORD dwCpcode } 

282 { 

283 switch (dwOpcode) 

284 { 

285 case SS&VICE C0M?-R0k_-S$0P : 

286 Set Sei viCt-3 1 =i tUS { 3 ERVICE_STO?_ PENDING ) ; 

287 PostThreadMessage(dwThreadID, WHJJOIT, 0, 0) ; 

288 breafc; 

289 case 3ERVIC£_COOTROL_?AUSE: 
Z9.0 break.; 

291 case SERVICE CONTROL CCMTIMUE; 

292 oreak; 

293 case SERVICE JTCflre*ra_ 
234 break; 

295 case SERVICE_CONTROt_S HUT DOWN: 

?96 break: 

297 default: 

296 CLogMag-E vent ( "Sad- se-r vice r eq^ea t n ) . Post {JLog-Ail } ; 

300 } 
301 

302 void WINAPI CServiceModule: :_ServiceMain< DWORD dwArgc, LPTSTR* IpszArgv) 

303 i 

304 _Module.5erviceHain(dwArgc, IpszArgv); 

305 } 

306 void WINAPI CServiceModule:: Handler (DWORD dwOpcode) 

307 { 

308 ^Module. Handler (dwOpcode) ; 

309 } 
310 

311 void CServi-ceModaie: : Set Se-rviceSta-t us (DWORD estate) 

312 { 

313 m_status.dwCurrentState * dwState; 

314 : : SetServiceStatus (m_h5ervicest.at.usr Sinjstatus) ; 

315 } 

317 void C5e i' v i c eM\>»J u 1 e . ; Ru i i % ) 

318 { 

319 Module. dwThreadID » GetCurrentThreadld { ) ; 
320 

321 H RESULT hr - CoInitializeEx (NULL, COINITJOTLTITHREADED) ; 

w> if (raTT.F.n/hr) ) 

323 ( 
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324 CLogMsgEvent msg (LCEV_GENERIC, SVRTY_£RROR) ; 



327 return; 

328 } 



J jl -y 



330 // This provides a NULL DACL which will allow access to evervone. 

3 31 CSecurit yPescr iotor sd; 

332 sd. InitializeFromThreadToken ( ) ; 

33 3 hr ~ CoInitializeSecurity (sd, -1, NULL, NULL, 

JJ4 RPC^C^AOTHN^LSVEL^PKTj RPC_C IMP LEVEL IMPERSONATE, MULL, ECAC NONE, NULL) ; 

335 _ASSERTE (SUCCEEDED < hi:} ) ; " 

336 

337 hr - Jfoduie. ReglsterCiBSSObjects fCLSCTX LOCAL SERVER j CLSCTX REMOTE SERVER, * 
R£SCLS_MU : LTIPLEOSB) ; ~~ ~ 

3 3 6 AS 5 ERTE { 5 UCCEEDS D { h r } ) ; 
339 

340 ///////////////////////////////////////////////////////// 

341 // HFC support: 

.342 if S_theA^,InitAc^aLca.tion{.> •» FALSE). 

343 f 

344 CLogMsgEvent msg{LCEV GENERIC, SVRTY_ERROR) ; 

345 nisg « - theApp .InitAppIication O failed""; 

34 6 msg. Post ( logAil } ; 
347 return; 

**48 I 
349 

35-2 if (_th*App. XnltX-rot.a*ce-t} ==» FAL&E} 

351 { 

352 CLogMsgEvent msg (LCEVJ3ENERIC, SVRTY_ERROR) ; 

353 mag « "__theApp . I nit Instance ( ) failed"; 

354 msg. Post (_logAll) ; 

355- _tfceApp.£xit Instance O ; 

3GC» recurn; 

357 } 
35B 

359 // end MFC support 

360 ///////////////////////////////////////////////////////// 
361 

362 

363 . ClttgMsg&venrt ( "Service started-" } . Past {^logAil > r 

Jb4 if (rr._bi>arvice) 

365 SetServiceStatus (SERVICE RUNNING); 
366 

367 _theApp.Run<) ; 
368 

369 CLogMsgEvent f "Service stopped") . Post ( logAil); 

370 " . 

371 _Moduie.RevokeClassOb iects ( ) ; 
372 

373 CoUnxnitialize {) ; 

37 4 } 

375 

376 /////////////// ft//////////////////////////////////////////// ///////////////// 

377 // 

378 extern "C" int WINAPI jtwinMa in (H INSTANCE hlnstance, H INSTANCE hPrevInstance, LPTSTR * 

IpCmdLine. 

379 int nShowCmd) 

38-0 ( 

jo I _luyAl 1 , AuuLuy { a^lvyS L & } / 

382 _logDebug. Enabled (false) ; 

383 "loqAll.AddLog(i logFile) ; 
384 

385 lifdef _DEBUG 

38f Iog£v<?nts . £na.bl^Tr?.n slat ion (true) ; 

387 _ log Debug . Enabled (true) ; 
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_logAll.AddLogU_logt>ebug) ; 

fiend it 

IpCmdLine « GetCommand.Li.neO; //this line necessary for _ATL MIN CRT 
Jfoduie.In.it CCfojectMfcp, hlnstance, XBS^SEBVXTCftAHE-, £L I'BT'D l#&I'OSKSBRVERX.ib) ; 
Jiodule .n^bService = TRUE; 

TCHAR szTokens[J = JT {"-/") ; 

L-PCT57& ip'SzTo-keii - Fi«d0n«0£ (IpCmdLine, 5?3c4cew3>; 

while (IpsrTcKen !« NULLj 

! 

if (Istrcmpi QpszToken, _T ("UnregServex" ) }««0) 
return Jtfodule.UnregisterServer () ; 

// Register as Local Server 

if (Istrcmpi (IpszToken, _T { "RegServer") } =*0) 

return Module. Register Server (TRUE/ FALSE) ; 



) 



// Register as Service 

if (Istrcmpi {lps2Token> T{"5erviee") ) ==0} 

return ^Module. Register Server {TRUE, TRUE) ; 

// Initialise Configuration Registry Sntri.es 
// Initialize Configuration Registry Entries 
if flstrcmox MoszToken. _T i n InitRea"n »«0> 
{ 

C Reg i st r yKSe-rve* r eg ; 
rey . btiiidlni Lial {) ; 
return 0; . 

} 

lps2Token « FindOneOf (IpszToken, szTokens) ; 



// Are we Service or Local Server 
CRegKey keyAppID; 

LONG IRes - k e yApp ID. Open (H K£Y_C LAS 5 £S_ ROOT , JT ("AppID") , KEY_READ> ; 
it (IRes !~ ERROR_SGCCESS) 
return IRes; 

CReyKey key; 

IRes - key. Open (keyAppID, JF CM BF823564-E93B-11D3-B88C-CC792E00OO00} ") , KEY READ); 
if (IRes !- ERROR^SUCCESS) 
return IRes; 

TCHAR $ rvalue j. MAX PATH]; 
DWORD dwLen » ~MAX~PA?H; 

1 Res * key. Qi i e r yVa .1 n e ( s zVa 1 vie , _T ( ** hoc a 1 -flex vi ce ) , s riwLe n ) ; 

^Module .raJbService - FALSE; 
if (IRes «* ERROR_3UCCESS) 

^Module . m_bService « TRUE; 

// AFX internal initialization 

if ( lAfxWinlnit (hlnstance, hPrevlnstance, IpCmdLine, nShowCmd) ) 

CLogKsgEvent (LCEV^GENERTC, SVRTY^EKROR, **AfxWinInit tailed. . Post (_iogAH) ; 

else 

Jfodule. Start O ; 

// When we get here, the service has been stopped 
return Module. m status -dwWin32EsitCode; 
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1 // threadReceiver . cpp : implementation file 

2 // 

4 #include "stdafx.h" 

5 fKnciude "ftCKicra-kServer . ft" 

6 # i n c I ude " t h r eadKeca i. vo r . h '** 

7 ^include "f ilenaroeDe limited .h" 

8 (* include "threadHain.h" 

9 Mnolude "registryKServer . h" 
1-0 # in exude "iiaiiM-es-kCmds . h H 

11 ^include "Eiictyplot . h i! 

12 -^include "exports, h M 

13 ^include "brokerWrap.h" 
14 

15 

ifc lifdei jrawip 

17 fide fine new DEBUG^NEW 

13 #undef TifIS_FILE 

19 static char THIS fILE{] » FILE ; 

20 tendir 
21 

22 ////////////////////////// //////////// ////////////////////////// ///////////// 

23 // CThreadReceiver 
24 

2S IMPLEMENT DYNCREATE {CThreadReceiver, CThreadServer) 
26 

27 CThreadReceiver : : CThreadReceiver ( ) 

28 ( 

2 9 us eT imer s ( m_pnT ime r s , T IM£R_fc4AX ) ; 

30 | 
31 

32 CThreadReceiver: : -CThreadReceiver <) 

33 I 

34 } 
35 

36 BOOL CThreadReceiver: : Initlnstance () 

38 if. (CThreadServer : : Initlnstance O — FALSE) 

3£ return FALSE; 

40 

41 m_fMaintenanceDone * false; 
4 2 return TRUE; 

43 } 
44 

40 int CTi!ieduRt£«jeiv«;t : : BAiLIudLa.'-tfjei) 

46 { 

47 // TODD: perform any per-thread cleanup here 

48 return CThreadServer: tfexitlnstanee f) ; 

49 } 
M» 

51 BEGIN_MESSAGE_MAP {CThreadReceiver, CThreadServer) 

52 //{ |Arx_MSG_MAP (CThreadReceiver) 

$4 //} 'AFX MSG HAP 

55 ON_THREAD_MESSAGE(WMUSER_START f onStart) 

56 END_MSSSAG£_MA? ( ) 
57 

53 /////////////////7////////////////////////////////////////V////////////////// 
59 // CThreadReceiver message handlers 

SO 

61 LRESULT CThreadReceiver :: onStart (WPARAM wParam, LPARAM lParam) 

62 ( 

CThreadServer: : onStart {wParam, lParam) ; 
64 setTimer (TIMER RECEIVE, 2000); 
£5 

66 // todo: testing 
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serrimer {TIMER CHECK TIME, iOOOj; 

//setTimei { T XME R^CH ECK_T IMS , I NT £ RVAL_C H EC KJF I HE ) ; 
aetTimer (TIMER MOVF^FILES , INTERVAL^ IMER_MOVE - FIl 1 ES) ; 

return FALSE; 



k L i, i i in^jx ^ n. i, ox j ; 

SiSTEMTIME st; 

Ge t Loc a 1 T ime ( £ s t ) ; 

S y S'temT ijneTcVa r i a rvtT ime ( & s-t , &sr j&a-t e Mow ) : , 

switch (nldx) 
i 

case TIMERJIECEIVE: 

break; 
case TIMERJZHECKJTIME: 

oriTimerCheckTvme O ; 

break; 
case TIMERJMOVE_FILES: 

r»nTi rMoupF i 1 { > : 

break; 
default : 

break; 

} 

t x. u x %\ ; 
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void CThxeadReceivex : ronTimerCheckTirce (5 



SYSTEM'? IME st; 
GetLocalTime (ist) ; 
COieDateTime odtNow; 

odtNow . SetTime < s t . wHour , st.wMinute, st.wSecond) ; 

C0IeDAt«7imcSpa:i uJtsiiurt - oiiUww - _LheApp.iftj>ie^ i& U-y->iA_odtEfl0.0f Day; 
int'nMinutes = odtsNow . GetTotalMinutes ( ) ; 
if (nMxnutes > 0 SS nMinutes < 60} 
[ 

i f { ! m fMa i n C e n a nc e Don e ) 



1 



m_f Ma intenanceDone - tru^e; 
deietefteck allies ( \ '< 
checkLareKxosks i) ; 
buildExports 0 ; 
buildOserExports () ; 



else 



m_fMaintenanceDone = false; 
sdtTimc ( T i MER_C H EC K JT XME , INT ERVAL_CH EC K_T IME } ; 



CFileMameKiosk fnKiosk; 
CFileFind ff Local; 
string strSearchFileName; 
CStrir.9 cstrFileName; 
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133 string strKioskld; 

134 string strWork; 

135 string strBackupFiie; 

136 CFile file; 

)37 string $t rXml Cm<* ; 

138 string strXmlResult; 

139 string strXmlError ; 
140 

141 • // set up wild card search name 

142 fnKics-k.set ("direction", n U"> ; 

143 InKiL^k . s«L { "Kiu2>K_id**i *****); 

144 fnKiosk.set ("date", "* ,f ); 

145 fnKiosk.aetExtension { "XML" } ; 

146 fnKiosk.getFuilName (sttSearch FileName) ; 
147 

1«5R // set current directory to the xfer directory 

149 chdrive {_theApp.m_pregistry->m_lKioskDrive} ; 

\h0 string st.rDi rerfcory * _fchfiApp. m_pr^gistry->jfl_strKin5?kDirer:tary; 

151 strOirectory t- "XferW; 

152 _chdir <strDirectory.c_str (} ) ; 
153 

154 // look at each file In the >:fer directory that matches wild card search 

155 booi fFiieF«M2Ha4 «■ f f local . Fin4F ile (strSe&rckFiieMame . c_str { ) ) !- FALSE;. 
1G0 while «f FileFottiidj 

157 ( 

158 friieFound ff Local . FindNextFile 0 !« FALSE; 

159 cstrFileName « f f Local .Get FileName 0 ; 
160 

161 // parse filename and get out the kiosk id 

162 fnKiosk. set FullName {cstr FileName) ; 
1-63 fnKioak.^ex v"ki03-k_i-d", atrWork) ; 

164 srrKios klc « surKork - substr { 1, strKorfc. siaeO - 1); // drop K prefix 
165 

166 // file errors can occur if we hit a file that is being xrc.it ted, error is a ✓ 
warning 

167 CFile Except ion exFile; 

168 if (file. Ope v» { cd tr Filename, CFile: smodeRead I CFile: ; frftareExclusive, sexFile) * 

— FALSE) 

16-9 ( 

170 char pszErrox £256]; 

171 *psz£rror » 0; 

172 ex File. Get Err or Message ( (LPSTR) pszError, ir$h> ; 

173 CLogMsgEvent msg {LCEVJSENERIC, SVRTYJtfARHING) ; 

- 174 ifrsc; << "•CT'hze*dRece£vez enable to- open trafts'action file ["; 

175 aisg <.< (const char *) cstr FileName c<. "] for storage- Error « 

176 msg « pszError « n ) . Cause » [" « exFile .m_cause « " } 11 ; 

177 msg . Pos t ( _log Al 1 ) ; 

178 continue; 

179 } 

iao 

181 // read in the contents of the file, error is a warning. 

132 long IFileSise - £ ile. -Set-Length (} ; 

163 unsigned char * pBuff - new unsigned char [IFileSize + ij; 

184 pBuff [IFiieSize] - 0; 

185 if ff ile. Read (pBuff , lFileSize) !- lFileSize) 

186 { 

18.7 CLogMsgEvent msg { LCEV_G£&E&I € ,• SVRTY JHA&NIWG* ; 

1SS ^ "CThi^aci Receiver uriable to lead trd-ttoaC'tioft file [ M ; 

189 msg « (const char *) cstrFileName « M ) for storage."; 

190 msg. Post ( logAIl); 

191 f ile. Close () ; 

192 continue; 
i<n \ 

194 f ile. Close 0 ; 
195 

196 // build xrn.1 command 
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C:<doc uptKioskTrans docXmlGnd; 

dacXmlCmd ... setXte.mXe.x±, { " kiosk id"., a txKios klcL c st r ( ) ) ; 
docXir l iamd.S8tIteinteKt{"file_nam€ ,, f cstrFiieName) ; 

// decrypt incomming data 
CSnccyptot encrypt; 
strinq strTransXml; 

delate [] pBuff; 
// parse incorcming data 

CXml Document docXmlTrans {strTransXml . c_str 0 ) ; 
C ! docXmlTrans . isReady ( ) ) 



\ 

strinq strError; 

docXnilTrans.geLParatirError (strError) ; 
// event, log message 

CLogMsgEvent msgCLCEVjSEMEftXC, SVMTY JlAftHIMG) ; 

mao « "CXhxeadBeceiver .uaahl* to paxsa tx^x^arJ^uxvi. £xle I • 

« (const char *) catrFilettaac « "] - XML farcer error - 1 ? 
msg « strError « M J"; 
msg . Post (JLogAll') ; 

// alert personei message 
<!^rinrt«^re 3 .^D strmError; 

s trmError'« "The transaction file ('* « (const chat *) cstrFilehame; 
Srt W « "I coUx* not ** parked. The error is [ << ^r€vror << . 
•trwerror « "xou ara listea as support personei ror tn.s k.os, t « 

strKioskld; . s «i,[. »• 

strmEtror « "J. Please investigate this problem A^AP. , 

Cxdoc_3etKioskAlert docAlertr 
CXmlElement el Farm; 

doc* ' err . getTten, <-parm-, *«1 Pam, Cx^_setKvo*kAl*rr : rPARM_M o*k_i d) ; 

setText {strKioskld. c str()j; , 1t 

;Si«"U5"«r^"»"' ' eTParBS ' Cxdoc^etKioskAlert::PARM_errorJevel); 

£^rt?5S2«rp-™-. fielParm, Cxdoc^setKioskAlert : : PASM^subject) ; 
elParm,setText{ "Kiosk transaction file parse error >j 
docAierUgeLIlem^aoa", SelP*M, CxUoc^selKAoakAl^x I P^RM_bouy) , 
elParm. setText (strmError . str () .c_str () ) ; 
docAlert.getXKMstrXmlCmd) ; 

CBrokerWrap broker (m_spXmlCrods) ; 
( 

mso.C.learO; t tr , , „. 

rcsg « "CThreadReceiver unable to issue Kiosk axext. , 

rnsg.Post{_logAll) ; 

* 

continue; 

} 

CXml PA ement el Trans; 
CXmlElement eiData; 

docXnuT cans. get Root UelTrans) ; 
docXmlCmd. get Item ("data", &e!Data) ; 

el Da Id . dddChild (Se lTrdiis) ; 

docXmlCmd . getXKL (strXmlCmd) ; 
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262 // put it to the broker 

263 CBrokerWrap broker <m_spXmlCmds> ; 

if i jhrnkpr . ^vprXrnW^f rXml Cmri . r^sfr M , s»* rXrol RpsmI t - sf rXwlRrmr) ) 

265 { 

CLogMsgfivewfc iwg«LCEV_€BHBRIC, SVRTY_WftRMIH6)-; 

>67 msg « "CThreadReceiver unable to store Kiosk transection file (*"; 

268 msg « (const: chat *) cstrFileName « "]."; 

269 msg. Post (__logAli> ; 

270 continue; 

271 ) 
71? 

273 // move to backup directory 

274 strBacksptfile * " - . WSackapW"; 

275 st rBackupFile ; con s c char ; : cstr FiieName; 

276 if < rename (cstr Filename, strBackupFiie.c_str ( ) ) ) 

277 I 

278 CLogMsgEvent msg (LCEV GENERIC, SVRT* WARNING) ; 

279 irsc « "Unable to raev-S file [" « {const char cstrFileSaae « "■] to- the* 

M , 

280 msg « "backup directory, errno - V* « errno « ")"; 

281 msg. Post \_iogAll) ; 

282 } 

283 j 

285 setTimer (TIM£R_R£CEIVE, ^theApp.m_pregistry->m_lReceiveFreqMs) ; 

266 return; 
257 ) 

288 

289 void CThreadReceiver: : onT.imerMove Files O 

290 { 

291 CFileFind £f Local; 

?92 string strWorkDir - _theApp.m pt:egiatry-->m_$C.rKio»kr/ireCtoiy + WorK\\ ; 

293 string strXferDir - __theApp.^pregistry->m_st rKioskDirectory + "XferW; 
294 

295 string strSrcFiie; 

296 string strDestfile; 
297. CString cstrFileName; 
298 

29-9 // move tiles out to he xfer directory 

300 string strFiieFind « strwcrkDir ♦ B *.* n ; 

301 BOOL fFileFound * ff Local. Find File (str File Find* c_str 0> ; 

302 while {fFileFound J 

303 { 

3>tu f FiieFourvc » ff ^oc3 i . Fi-n4-»s«tFile-{ } ; 

305 if {liLuUdi. laDix^Lury {} ) 

306 continue; 

307 cstrFileName = f f Local .Get FileName i ) ; 

308 strSrcFiie « (LPCSTRj cstrFileName; 

309 strSrcFiie. insert (0, strWorkDir); 

310 strDescFile = (LPCSTR). cstrFileName; 

311 stxDestFile. insert (0, strXferDir); 
312 

313 ' remove (strDestfile. c strOi; 

314 rename (strSrcFiie . c_str { ) , strDestFile . c_str { ) ) ; 

315 } 
316 

317 // remove files marked as retrieved 

318 st r File Find » strXferDir * "*.*x"; 

319 fFileFound « ff Local . FindFile (strFileFind . c_str ()) ; 

32/S while { f FiieFoir.Yd) 

ill \ 

322 fFileFound- f f Local. FindNextFxle {) ; 

323 if ( ff Local . IsDi rectory ( ) ) 

324 continue; 

325 cstrFileName ■- ff Local . GetFilePath () ; 

326 remove (cstrFileName) ; 
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327 } 
328 

329 setTimer (TIRERJ40VE_FI.L£S, ItlTERVAt._T IMER_MOVE_FT LES ) ; 

330 

331 retuxn; 



334 booi CThreadReceiver: rdeieteBackupFi.les [ ) 

335 { 

£3*6 boo.l f Success « true; 
337 

338 // delete backup file on disk 

339 string strFileName; 

340 string st rSearchName ( w * . * ° ? ; 

341 string strBackupDirectory « J:heApp.mj>registry->m_strKioskDirectory; 
34 2 strBacXupDirectory +* "BackupW"; 

343 strSearchName. insert (0, strBackupDirectory) ; 
344 

345 // get current time - retentions days 

346 SYS7EMTIME stime; 

347 Get Loca XT i roe ( s t ime ) ; 

348 CGleDateT.ime odtKeep {stime ) ; 

M-9 COieDateTimeSpan spanTime ( _theApp.m_preaistry-->ni_IBackupRetentionDays, 0, 0, 0) ; 

350 odtKeep -« spanTimtf; 

351 

352 // delete all file whose time is less than current time minus retention days 

353 CFileFind ffLocai; 

354 boo! fFileFound * ff Local . FindFile ( strSearchName . c_str 0 ) !« FALSE; 

*vs s while ( f f n e fvw n d } 

356 { 

35*? f-FilfrPrand * f-f Local. ■PindMaxtFileU FALSE; 

35a if (f f Local. IsDocs O j 

359 continue; 
360 

361 FILET IME ft ime; 

3.£2 ff Local .GetCreatic^Time {frf-timel ; 

3 6 3 COi e Da L «T aims uu L Fi i c { f 1 ime / ; 

364 if (odtFile < odtKeep) 

365 { 

366 CString cstrFileName - f fLocal .GetFilePath () ; 

367 remove (cstrFileName) ; 

3 68 } 

369 } 

37-0 

37 1 // remove old daily transactions from database 

372 odtKeep. SetDate (stime. wYear, stime .wMonth, stime. wDay) ; 

373 spanTime-SetDateTimeSpan(_theApp.mjpregistry->ra_lTransReteiitionDays, 0, 0, 0) ; 

374 • odtKeep ~" spanTime; 
375 

376 CXml Element elDale; 

377 Cxdoc__deleteKioskTrans xdocjteleteKioskTrans; 

378 xdocjdeleteKioskTrans.qetltemrpaxm", &eiDate) ; 

379 elDate.setTexU (LPCSTR) odtKeep . Format ( n %Y-%m-%d H ) ) ; 

380 string strXmiCmd; 

381 string strXmiResuit ; 

382 string stiXmlError ; 

303 xdoc del eteKioskTran-S.getXMT. {strXml Cmd) ; 

384 CBrokerWrap broker (m_spXmlCmds} ; 

385 fsuccess * broker.execXml(strXmlOnd.c_str{>, strXml Result, strXmlExror) ; 
386 

387 return f Success; 
3>9 9 } 

390 booi CThreadReceiver: icheckLateKiosksO 

391 { 

392 Cxdoc checkLateKiosks docCmd; 
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393 

394 CXmlEXement elParm; 

396 docCmd.getItem( rt parm'\ SrelParm) ; 

397 filParm.ser.Tftxt-. (_thftApp-m_prfrgi^try^>m_lllonrsKi<>«k^5ftnt.) ; 
398 

399 string strXmlCmd; 

400 string strXmlResult ; 

401 string stcXmlErtor ; 
402 

403 docQ!Ki.getXMli\sCj:KnilCmd) ; 
404 

4US CBrokerWrap broker (m spXmlCmds}; 

406 i£ ( 'broker. execXml(strXmlCmd.c_str (J , strXmlResult, strXmiError) ) 

407 • { 

408 CLogMsgEvent msg (LCEVJ5ENERIC, SVRTYJORNIHG) ; 

409 msg « "CThreadReceiver unable to checkLateKiosks { ) . 

410 tog. Post .{_logAll> ; 

411 } 
412 

41 return true; 
414 } 

416 booi. CThreadReceiver : rhuiidExports 0 

417 { 

418 cExporf Kiosks ek(m_spXmlCmds); 

419 string strDiz = _theApp. m_preg is tEy->in_str Kiosk Directory + XterW ; 

420 ek.setFinalOir(s-trDir,-c^»tr()); 

421 sUDiz - - theApp.mj>ieflistry->m„stxKloskDi.tectoxy + "WorkWKxosksW ; 

422 ek-setWorkDir (strDir . c_str O ) ; 

423 return ek .buildDailyExpoxt ( ) ; 

424 } 
425 

&?f> tool rrhrAariRpcAlvpr::huilrtn.«iprRxporfR() 

427 { 

428 string sr.rDix; 
429 

4 30 CExportLCUsexs eu (ra^spXmlCmds) ; 

431 strDir » _theApp .m_pregistry->m_strKioskDirectory + M Work\\ ; 

432 eu. set FinaiDir (strDir. c_str () ) ; 

433 strDir "LCUsersW"; 

434 eu.stitWorkDit <sc.cDii.c_sti'<) ) ; 

435 eu.setPacketSize (_theApp.mjpregistry->m_lLCOsersPe.r Packet) ; 
436' 

.437 // build the big kahonee 

438 COleDateTime odt; 

440 eu.buildDailyExport((DAT£) odt, NOLL, true); 
441 

442 // build the daily 

443 odt - COleDateTime: :GetCurrentTime () ; 

444 ' eu.buildDaxlyExportUDATE) odt. NULL, false*; 
445 

446 return true; 

447 } 
44B 
449 
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1 // wndMonitorlSP.cpp : implementation file 

2 // 
3 

4 * include "stdafx.h" 

S- # include " Icfcicrsteci fcwt 

t if include "wnc&cnicor iSfc' ■ ft*' 

7 g .include "£ ilenameOe. limit ed.h H 

8 ^include "zipUtil.h* 

9 if include "Encrypt or . h" 
1-9- 

11 ftifdef DEBUG 

12 Sde£ine~new DEBUG NEW 

13 itundef THIS_FILE 

14 static char TKlSjriLEH - FILE i 

16 

17 /* 

" This window acts like the following state machine. A state change results in 
either a posted message are a set timer whose event will process that state. 



19 
20 
?1 
22 



;= xss asss ist xa at xws 



state I new state ! condition 

ST CHECKTIME ) when it is not trme to do anything 

ST""COMNECTIWG i when it is time to process 



ST CHECKTIME 



24 
25 
26 
27 

29 
30 
31 
32 
33 
34 
35 



J5 

37 
38 
39 */ 

41 UINT cWndMonitorlSP: sm_nRasD.i«J.M«g = u; 

t! luiiiiuiiiiiiitNiiuiiitutiiituiiiutuititiiiiniiuittiittiimmim 

44 // CMndMonitoxZSP 
45 

46 CWndMonitorlSP: : CWndMonitorlSP i) 

47 { * 
4-8 m_£U*eRa«- = true;- 

iii_puiaiex - HULL* 
m_pdialerRas * NULL; 
in pd'ialerWinlnet = HULL; 
m fExchangeDone - false; 
,m~ fMa \ n t * nA n ^iViP^- f a lser 



ST_COMMECTING 


! ST 

i st" 
1 st~ 


RETRY 

"exchange 

CHECKTIME 


j when the connect fails 
| when the connect succeeds 

| when connect fails and retries are exhausted 


ST RETRY 


! ST 


connecting 


S 


ST_BXCHANGE 


1 ST 
i ST 
! ST 


APPLY 

"retry 
checktime 


I when the data exchange succeeds 

1 when the data exchange fails 

1 when the data exchange fails and retries are 


exhausted 








S?_AP?LY 


1 ST 
j ST 


CHSCKTIME 
"CHECKTIME 


I when apply updates succeeds 
1 when apply updates fails 



t J 
50 
51 
52 
A3 
54 1 
55 

56 CHndtttonitorlSF: : -CtfndMonitoriar w 

57 i 

58 if (mjpdialer NULL) 
f% o de let e * 1 * r ' 
60 } 

41 

62 BESIti MESSAGE MAP (CtfndMonitcrXSP, i;tenaMomtcr) 

63 /7{ {AFXJ4SGJ1AP (CWndMonitorlSP) 

64 r*v T.-.-V 
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66 //) |APX MSGJ4AP 

67 (WJAfcSSAGE^ aotUiU Canned: j 

58 CM MESSAGE (VJMUSSR CHECKTIME, cr.T irr.c rChc ckTi rr.c ) 

69 GNOMES SAG E ( WMU SER~EXCHANGE , onExchange) 

70 ONJ^ESSftGE'iWKUSSR^APPLY, cnApply) 

71 ON MESSAGE ( WMUS ER^CONNSCT , onTtyCtftUiee t ) 

72 ON~REGISTEREDJ4E3SAG£ (m_nRasDialMsg, onRasDialReport > 



73 ENDJffiSSAGE MA?<) 
74 
75 

76 J // J h' //////// f ///////// U ////////////////////////// J /////////////////////// / 

77 // CWndMonitorISP message handlers 
78 

79 int CWndMonitorISP: :OnCreate (LPCREATESTRUCT IpCreateStruct) 

8 0- ( 



82 return -1; 

83 

84 buixdMrectoryStructure ( ) ; 
85 

ft* if fm_fTI«fcR«R> 

87 { 

&9 rnjpdisierRa-s » new -eDiaie'zRA5-(-m_r 

59 m_nRasl>ialMsg * m_pciaiezRas->getHetif icarionMessId 0 ; 

90 rajadialer « mjpdialerRas; 

91 > 

92 else 

93 { 

34 rr» pdi3 UrWi nT^p^ a new CDi * 1 orWi n Tn#»f ( } : 

95 m_pd i a ler • m_pdialerWinInet ; 

9£ } 

97 

93 m_pdiaier->m_hwndOwner - m_h«nd; 

99 

100 m__ePreviousState = ST NONE; 

L01 s&StaijL £S£ J1HECKXIME3 ; 

102 PcstMcccagc \ KMU S ER_C.H ECKT 1MB J ; 

103 tecum 0; 



104 >■ 

ICS 

106 void CWndMonitorISP: :OnTimer (DINT nlDEvent) 



107 { 

108 KillTimer (nIDEvent) ; 

10- 9 

110 switch inlDEvenc) 

111 ( 

112 case TIMER_CHECKTIME: 

113 onTimerCheckTimeCO, 0); 

11- 4 break; 

11 j c^se 7IMSR_RS7RY ; 

116 onTimerRetry 0 ; 

117 break; 

118 default: 

119 break; 
1 70 } 

121 } 
152 



123 L RESULT CWndMonitorISP: :onTimerCheckTiiB8 iWPARAM wParam, tPARAM IParam) 

124 { 



125 COieDateTime odtNow « COieDateTime: :GetCurrentTime 0 ; 
126 

127 // check to see if it is end of day. If it is, then do maintenance 

128 COleDateTimeSpan odtsNow » odtNow - mjregistry.mjDdtEndOfDay; 

129 int nMinutes = odtsNow.GetTotalMinutes {} ; 



130 

ill it {nwinuces > 0 && nMinutes <: 60) 
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132 { 

133 if ( !m_fMaifttenanceOone) 

1 ^4 [ 

135 deleteOldBackups 0 ; 

! >6 c 1 ea-ttOfcasr-fcerS'M z actcir y ( ■) ; 

137 cetarii trtse; 

138 } 

139 » 

140 vl3e 

141 m_£Ma.inte nance Done « false; 

14? 

143 // check to see it we should do file exchange 

144 cwlcaHow - otftNcw - njz&qistzy k m_crdt?imeOf E?:chan^e ; 

145 nMinutes - cdcsNcw.GetTotalMinutas () ; 
146 

147 if fnMinutea >- OS 

1.48 I 

149 // starr. the exchange 

100 if (iii ttsyisLiy^at^lCuniiecLRttLiies} 

151 m^nRetryCount * m_registry..m_l.ConnectRetries; 

1^52 <> I ss^ 

153 mjiftetryCount - R£TR¥_FOREVER; 

155 setState {STjCONHECT XHG) ; 

156 PostMessage (WMUSER_CONNECT) ; 
157 

1S$ // set up the next exch&nq® tittie 

15§ coieDateTimeSpan odtsMinutes (0, 0, m_registry.m_l£xchan3eFreqMins # 

150 m_regi8try,mJo<ltTimeOfExchange « odtNow + odtsMinut.es; 

161 } 

162 else 

163 { 

164 secState (STjCHECKTXME) ; 

165 SetTi^er (TIMER ^ CHECK? IME, I NTERVAL^CH EC KT IME , NULL) ; 

166 } 
167 

168 return 0; 



169 | 
170 

171 bool CWndMonicorISP: :onTimerRetry () 

172 { 

173 if nRpr ryCnunt" > 0) 

174 nTnRetryCount — ; 

^ El 

176 cLogMsgEvenULCEVjSSNERlC, SVRTY^INEO, "Retrying connect*) .Pose (_logAll) ; 
177 

.178 setStateCST CONNECTING); 
179 PostMessageTwMUSERJSONNECT) ; 
i&O 

191 return true; 

162 ) 

1^13 

184 LRSSULT CWndMonicorISP: :onTryConnect (WPARAM wParam, LP ARAM lParara) 

185 { 



if (m r#>ni <?f ry . m 1 Nof)i « 1 ?~ 0) 
187 ( 

1 OB setfvtat* (AT EXCHANGING) ; 

189 PostMessage TkMU S ER_EXC HANGS } ; 

190 } 

191 else 

192 m pdialer-> connect (} ; 
193 

194 return Gi 



195 } 

1^6 

197 L RESULT CWndMonitoi ISP: :onExchange (WPARAM wParam, LPARAM IParam) [Claim lb, 4a, 5a, 5b, 5c, 
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7b, 9b, 10a j 

198 { 



\*9 CLogMsg Event (LCEV GENERIC, SVRTY INFO, "Exchanging riles") . Pose * .logAJi); 

200 ~ ' ~ 

201 booi f5uece-53 * fi^chan-ga-Files (I ; 

203 m pdialer-xjisconnect 0 ; 
204 

205 if (f Success) 

204 { 

207 «» fM&iTit6fta:'iCgD0ti6 - tTti&i 

208 setState (ST^APPLYING) ; 
20$ PostMessage ( WMU 3 SR_A P PL Y } ; 

210 } 

211 else 
?^? { 

213 if (m nRetryCount > 0 }| m nRetryCount RET RY_ FOREVER) 

214 \ 

215 setState (3T_RETR¥ZNG) ; 

216 SetTimer (TIMERJRETRY, m_registry .mlRetrylntervalSecs * 1000, NULL) ; 
Zll ) 

218 else 

219 { 

220 setState ( ST_CH ECKTIMG ) ; 

221 SetTimer (TIMER^CHECKTIME, INTERVAL CHECKT1ME, 0) ; 

222 } 

223 } 
224 

225 return f Success ? TRUE : FALSE; 



226 } 
227 

228 LRESULT CW&ffiort it or I BP : ; on RasDiaiReport <WPARAH wRasCormStat*, LP ARAM dwEiroi) 

229 { 



230 // if doing async Ras, logNotif Ication must be called to recieve WMUSERJTONNECTED 
tsessace 

231 m w pdialerRas->logNot if ication (wRasConnState, dwExror) ; 

return f>T>; 



233 } 
?34 

235 LRESULT CWndMcni torISP: : on&ialConnect (HPARAM wParam, LP ARAM dwError) 

236 { 

237 if (dwError) 

238 { 

2 3 $ sa-pdia Ie : r ~ >di frooaaec-t ( > ; 

240 if uu_i£iRt;LiyCuun.L > 0 i \ t»_ijReliyCuujiL — RE7RV_r OREVEK) 

241 { 

242 setState (ST_RETRYING) ; 

243 SetTimer (TIMERJWSTRY, nv registry. m_l Re try Interval Sees * 1000, NULL); 

244 } 

245. else 
24 6 { 

247 sc tStatc CST CHECKTIKE) ; 

248 SetTimer (TIMER CHECKTIHE, INTERVAL CKECKT IMS, 0); 

249 ) 
?h0 } 

251 else 

252 f 

253 setStase ( $?_£>X HANGING ) ; 

254 PostMessage {WMUSER^EXCHAHGE} ? 

255 ) 
256 

257 return 0; 

758 } 

259 

2-&0 bool CWadMoR-it<5x3&P: :_f-sncSojrt-PileMa9nft-(^ffir»9 £ strl, string $ str2) 
2 6 1 { 
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262 return strl .compare {stxZ ) < 0; 

263 I 

265 bool cwndMonitorISP: : apply LCUsersUpdates U [Claim lf,.lg] 

267 string strSearchKame ; 

268 . string str Filename; 

269 string stxBackupName; 

270 CString cs t r Zip Filename; 

271 CStrinq est rXmlFi leHame ; 



292 
293 

294 



CLogMsg Event (LCEV^GENSRIC, SVRTY^INFO, "Applying LCOsers . «> . Post (_logMl> ; 



273 
274 

275 boo! fSuccess - true; 
276 
?77 



string strP-rocDir - m_str?rocDir -* "LC^jmrwW 11 ? 



278 t 

27 § 

281 strSearchKame * "D^LCUsers* .sip"? 

282 strSearchName. insert <■©, m^strProcDir) ; 
283 

284 CFileFind ffZips; s . 

ROOT. fZipFnnnH - Ff 7, i p.? , Pi nr»Fi 1 e '.5 1 rrhX*r«<* . CJJ t ! ) ) >> 

286 while (f Zip Found) 

2 & 7 t 

t 5 * ' faipFound * ffSips.Fir.dMexcFiUO ; 

cstrZipfileWame ■ ffZips.GetFilePatM) ; 

790 ciearDir«ctory(strPtocDiE.c_sttOU- . _ * v v . 

29i m_zippes.un*ipFile(cstiZipFileNaa», strProcDir .c_str 0 ) . 



strSearehHame - strProcDir ♦ "*.wal"; 



2§Z CFileFind ffXmls; . 

HI BOOL fXmlFound - f fXmis. FindFile (strSearchName.cjJtr 0 ) , 

2S7 while (I^mlSaund) 

2qq " fXml Found - f fXmls.FindNextFile 0 ; 

300 cstrXtalFllcVuc - f fXmls .GctFilcPath <■) ; 

3^ m 3 pKCData->importLCUsers t_vaxi«t_t (e*trXmlFil*8am6> ) , 

3Q2 remove (cstrXml Filename) ; 



303 ) 
304 



atrftactafiM - * at r Backer ♦ (*PCS?*> ff^ps.Get-Fi^a^O ; 

306 rename (cstxZipFileName, strBackupHaae.catrO 

307 f 

308 ) 

309 catch {_cora_error £ e) * 

ni 1 CLogMsgEvenL wy (tCWJSEHERIC, SVRTTf JfAWHHG) ; 

3 12 msg « "Error during appiyLCOsersDpdates O . Error * l 

313 msq . appendEnox (e) ; 

314 msg « "]."; 

315 msg. Post (_lo.gAll) ; 
31 6 fSnrcfc.«i« ~ false; 
317 J 

316 c a t c h ■ ( C Except ion * p£) 

320 ' CLogMsgEvent msg Error (LCE\M3ENERIC, SVOTYJUtftoXIIG) ; 

321 char oszErrorMessage (2561; 

322 pS->GetErrorMes S age(pszErrorMessage, ^ p 32 ErrorHessaae^ 

323 msgError « "Error during applylCUsersOpdates () . Error i 

« "3"; 

324 pE->Delete(> ; 
323 fSuccess « false; 



326 



327 catch (. . . ) 

III { aogM«gEv*nt(LCEV GENERIC, svmjWWIWS, "Unknown exception daring 
appiyLCUsersOpdates ( )>) . Post (_logA.ll} ; 

33.0. * f Success false; 

331 > 

332 

333 

334 return f Success; 

335 } 

33? booi CWndMonlt orISP: :applyAppDpdates 0 
338 { 

~<35 s-ring strSearcnSame; 
string strFileName; 
3 1 r i n g s t r Ba c k upK ame ; 

CString csttFiieName; 



340 
341 
342 
343 

344 
345 



CLogHsgBvent «.*glnf oaCEV_GESBEIC, 3VRTY„IBF0) ; 



34C msglnfo « "Applying application updates. 
347 msglnfo. Pose <_iogAll) ; 



348 

349 boo.L fSucccss ~ true* 
350 

351 cry 

\tl 1 vector<string> coll Filename s All ; 

3^4 veccor<»tring> collFileHamesByld; 

III tf,? 1 /"^ 

III ■ // build wild card file name tor KALI* search 

360 CFileNameKiosk fnKiosk; 

Wl fnKiosk . set { "direction" , D > ; 

363 fnKiosk* set ("date", 

3€4 fnKiosk. set Extension ("**P ) ; 

165 f n Kiosk,getrullHome(strSearchName);. 

366 strSearchName.inseitCO, m.strProcDir) ; 

3*3 U collect all KALL file name and sort them by date 

371 wiiiie {fFiieFound) 

?Z? EFileFound - ff Local . FindNext File (} ; 

tit ~***g« Inflame- - f fiscal .^et Filename ()•; , „ 

37I ^liFli^u^Ali . ( (const char *) -i,u««n 

I?? U^ollFileNamesAU.baginO, adlftl— «All.«id 0 , ^funcSoxt Filename) 

378 
379 
•*A0 



// u ;^ uifH rard fil*- name for K9999 search 
ifti fnKiosk.gatfullNamelstrSearchNams); 



•'/ -oliect all K9999 file names and sort them by date 

HI fFileFound - ffLocal.FindrilelstrSearchName.c.strO)^ 

386 while (fFileFound) 

52 ! fFileFound - ffLocai.FindNexr.FUeO; 

389 cstcFileHame - ffLocal.GetFileNameO; rFile Name> 

Jo co UFileNamesBvId.push_back((pon S t char *5 cstrFxleName) 

391 1 



392 

395 

356 
39? 
39$ 
399 
4$G 
4 y i 
402 
403 
4C4 

405 
4G6 
4C7 
408 
409 

v«*> 

J. V 

411 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
421 
422 
423 

424 
425 
4.26 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 

444 
445 
446 
44? 
448 
449 

45-0 
4G1 
452 
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sort (collFileNamesByld. begin () , coll Filenames By Id. end{ ) , _£ uncSortFiieName) ; 

// append K9999 filenames to che end of KALL filenarr.es 

co.llFiletfamesA.ll .insert (col lFi.leNamesA.il .end {) f collFileNamesByld. begin () , ✓ 
coilFilcRamcsByld . end { ) } ; 

///////////////////////////////////////////////////////////////// 
// apply a op 11 cat ion zip tiles 

///////////////////////////////////////////////////////////////// 
•v&oxw < *t r i wg>? -r i te r a for i t r 

for (it = coiiMieNa»T*esAll .begin (; ; it !- cciitiler.'amesAll.end W ; ic+t; 
{ 

sfcr Filename - m_strProcDir t *it; 

it ( !m_zipper . unzipFile {strFileName . c_str () , m registry. m st rAppDi rectory 

C_otrO, 

CZipUtii: : ZF_OverWrite i CSipUt 11 :: ZF_UseDirectorytfam.es) } 

i 

CLoqMsyEvenL insqEx for { LCEV_GENERIC , 5VRTY_WARwING> ; 
msgSrror « "Unable to apply (" « *it « ")**; 



eise 
i 



msglnfo. clear ( ) ; 

msglnfo « "Applied update file [ « *it << "J"; 
msglnf o. Post (_iogAil) ; 



strBackupMame » m_scrSackupDir + "it; 
strFileName * n_strProcDir t *it; 

if /rename (strFileName ,c_str () , st rBackuoName . c_st r f ) ) ) 
{ 

CLogMsgEvent msgError {LCEV_GEN£RIC, SVRTY^WARKilNG) ; 

msgError « "Unable Lo move V* « *il « N ] to the backup directory * 
after applying. 1 *; 

msgError « " errno - " « errno; 
msgError, Post (_logAll) ; 

) 

} 

) 

ca t c h ( _com_e r r o r 5 e ) 
{ 

CLogMsgEvent msg {LCEVJSENERIC, SVRTY_WARRING) ; 
msg « "Error during appiyAppUpdates { ) . Error = 
msg . appendError (e) ; 
msg « 

msg, Post (_IcgAii) ; 
fSuccess « false; 

) 

catch (CExcept ion *~ pE) 

CI^yHogEVcjit iiiiyEiior {LCEV__GSNERIC/ 3VR7Y__WARNING5 / 
char pszErrorMessage {256] ; 
pE->GetErrorMessage (pszErrorMessage, 2561 ; 

msgSrror « "Error during appiyAppUpdates 0 . Error « [" « pszErrorMessage << * 

M I ft . 



pE->Hp1 Pt*A () ; 

fSuccess * false; 



catch (...) 
{ 

CLogMsgEvent (LCEV^GENERIC, SVRTYJtfARNING, "Unknown exception during 
appiyAppUpdates () . ") .post (_iogAU) ; 

f Sttcces-a 5=1 false; 
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453 return f success; 

454 } 

456 bool CWndMonitorISP: : applyDBUpciates {) 

457 ( 



*i 56 string strSearchtfame; 

4 59 string strFileNarae; 

460 string strBackupName; 

461 CString cstrFiieName; 
462 

4 £3 bool fSuooesa - true; 
464 

465 CLogMsgEvent (LCBVJS6NERXC, SVRTY_iaPO, "Applying database updates . u ) . Post (JLogAil)rf 
466 

4 67 try 

468 | 

46$ CFilftMameKiosk fnKiask; 

4 70 rnKiosk. sec ("direction" , "D") ; 

471 fnKiosk . set ("kiosk_id", m^registry .m_strKioskId.c_str ( ) ) ; 

472 fnKiosk. set {"date", "*"); 

473 £ nKiosk. set Extension { w xml") ; 

474 fnKiosk. get FullNarae (strSearchName) ; 

475 strSearcliKame . insert (0, m_stxProeDir) ; 
476 

477 CFileFind ffLocai; 

473 BOOL fFileFound - xf Local > FindFiie <str Sear chName . c_stc ()) ; 

47 S while (jfJEliJL^£au.o£U 

4 80 f 

481 fFileFound * ffLocai . FindNext File {) ; 

4B2 cstrFilcttarac - ff Local .CctFileKaae {) ; 

4 33 strFlleNaine ■» (LPC5TR) est r Filename; 

484 strFiieName . insert (0, m_strProcDir) ; 

485 m spKCDat a -> import Data (""variant t ( (LPCSTR) strFileName . c str ())).; 
486. 

407 st^RackiipN^roe « m strBa-ckJipB'iT + (7.PC5TR) cstrFileName; 

488 rename istrFileNarae.c^strU , strBackupName. c_str O ) ; 

4 89 ) 

490 \ 

491 catch (_com error s e) 

492 I 

493 CLugMsgEveni aisy (LCEVJ3ENERIC, 3VRTY_WARHIMG) ; 

494 msg « "Error during applyDBUpdates (7. Error « ["; 

495 msg . appe nd E x r or ( e ) ; 

496 msg « "] 

497 msg. Post (_logAll) ; 
4Qfi fsnrr.<».s5? = false; 

499 } - 

5-0-8 catch {-OExeeption *• pB) 

501 ( 

502 CLogMsgEvent msgError {LCEV_GENERIC, SVRT YEARNING) ; 

503 char pszErrorMessage F2561 ; 

504 pE->GetErrorMessage (pszErrorMessage, 256) ; 

505 msgError « "Error during applyDBUpdates- {} . Error * \" « pszErrorMes-sage « * 
«« j ■» * 

506 pE->DeleteO ; 

507 fSuccess « false; 

508 } 

509 ca t ch { . . . ) 
51 n { 

511 CLogMsgEvent (LCEVJSESERXC, $VRTY_«ARNING, "Unknown exception during W 

applyDBUpdat es O . " > . Post { Jb ogAi 1 ) ; 

512 fSuccess * false; 

513 } 
514 

515 return true; 
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516 } 
517 

L RESULT CWndMon iter ISP: : on Apply (WPARAM, LP ARAM) 
519 f 



520 boo! fS-acee-ss * true; 
52.1 

522 try 

523 { 

524 H RESULT hr - mjspKCData .Create Instance { uuidof (KCData) ) ; 
525- if { FA I LED ><hr> } 

527 CLogMsgEvent msg (LCEV_GENERIC r SVRTYJWAftNIHfG) ; 

528 tt> m r *s<3 « "Unable to instantiate IKCData. Error - [Ox* « std: :hex « hr « * 

529 msg « " Database updates were not applied."; 

531 throw E FAIL; 

532 } 
533 

534 m $pKCData~>open { ) ; 
535 

536 if { Jm_zipper .createlnstance t } ) 

5-3.7 throw £ FAIL* 

C»3S 

539 m_strBackupDir « ro_registry.m_str Local Directory + "BackupW".; 

5^0 ro^strProcDic ~ in_r eg is try. ra^str Local Directory + "?rocess\V; 
541 

$42 applyDBUpdates ( ) ; 

543 a pp t yLC U s e r s Opda t e s { ) ; 

544 app I vAppUpda te s C) ; 
545 

546 m_spKCData-.>clQse ( ) ; 

547 } 

548 catch (_coir L error & e) 

549 { 

550 CLogMsgEvent msg (LCEV_&£NERIC, SVRTY__ WARNING) ; 

551 uisg « "Error duxingonApply (} . Error - 

552 msg.appendError (e) ; 

553 msg « "] . w ; 

554 msg, Post (_XogAlI) ; 
355 f.Snc-ce_as - false; 

556 ) 

557 catch (HRESOLT hrErr or) 

558 { 

559 hrEtrot; 

560 f Success « false; 

561 * 
562 

S€3 // done, go back into a wait state till next maintenance run 

564 setSrats ;ST_CHECKTIME) ; 

565 SetTimer (TIMER^CHECKTIME, INTERVAL CHECKTIME, 0) ; 
566 

567 return ^Success ? TRUE : FALSE; 



568 } 

570 void CWndHonitorISP: : clearDirectory (const char * pszDix) 

571 { 



572 string strSearehNarne m pszuir; 

573 strSearchNama += "*.*"; 
574 

575 CFileFind ff Local ; 

576 BOOL fFileFound =» ff Local . FindFile (strSearchName . c str<)); 

577 While (fFilorAnnH^ 

578 < 

574 fFileftrciK* * f fLc^al.Fir^extFiie (}■; 
580 if (f f Local. Is Directory (; ) 
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C ° nt ^trkleName - f f Local. <3etFile?ath 0 ; 
remove (cstrFiieMame); 



581 
582 
583 
584 > 
SC5 

return; 

587 ) 

586 ..^Tcp- .cieanChaxtersDirectoryO 

589 bool CWndMonitotlSP- .ciea.i 



5*0 ( 

SSI 

592 

593 

594 

595 

596 

597 

55)S 

599 

600 

601 

602 

€03 

604 

605 

e&e 

607 
608 
609 
610 
611 



613 
614 
615 
616 
617 
618 
619 
620 
621 > 
622 



tecum true» 

FILETIME ft; . 
COleDateTime <^t^le; c01eDa teTi>r.e: :GetCurrentT.me O . 

COleDateTime ootYesteraay 
COleDateTimeSpan spanDayU, 0, 0, 0), 

CString <=s trFUe ^''_ i3trv . m strChartDir + 

string strSearcnNarne - m_regi3v- . _ 

CFHeFind ftCharts; 

BOOL ml — • ««-«..«-^'«* «-""»• 

while lffilrfott"*> 

* fFileFound- £ fCharts .FindNextFiXe 0 ; 
If {ffCharta.XsDirectoryO) 

continue; A , rf1> , . 

if (odtFUe L < odtYesterday) 



cstrme^e^ftCharts.GetFile.athO; 
remove (cstrFileName); 



return true; 



622 , fA . Tq p, .HeleteOldBackupsO 

623 boot -CWncWonitocISP. .aei«w« 

62-4- { ^rne* 



620 
626 
627 
628 
62S 
630 
631 
632 
633 
634 
635 
636 
■637 
638 

639 
640 
€41 
642 
643 
644 
645 



CFilcFind 
CString 



chdir {S trSackupDix.c_str 0 ) , 

ff Backup; 
cstrrileHanxe; 

„ .. e , * -t. » — «-*• - °; ;;; u : LL„o„ 3 , .. ., ... 

SYSTEMTIME St; 
// set up wild '-ard search 
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646 fnKiosk. set ("direction", "*") ; 

64? fnKiosk.set{ n kioskJLd", M *"}; 

64 8 fnKiosk. set ("date", "*"); 

649 fnKiosk. setExtension*"*' 1 ) ; 

6 5 0 5f r i ng $f.-r Sea r Ch ; 

651 fnKiosk. getFulINameistrSearch) ; 
652 

653 // retrieve list of files in backup directory 

654 bool fFiieFound - f I Backup. FindFile (strSearch . c_str ( ) } ! = FALSE; 

.€5-5 while (f File-Sow nd) 
6 0 6 { 

657 fFileFound - ff Backup . FindNext File ( ) !« FALSE; 

608 CString cat £ Filename. - f f Backup. GetFileName () ; 

659 fnKio3k.secFullName<cstrFileSame) ; 

660 

661 // retrieve the date portion of the file name 

662 DATE dateFile; 

663 f nKios k . get ( M ria te M , da f.e-r i. le ) ; 

664 COieDatef ime odtFiie (dateFile) ; 

665 , 

666 // if the date fails before now minus retention period, then deiete it 

667 if (odtFiie < odtDeleteDate) 
{ 

6 v 9 if ( r eivio ve ( o s t r F i 1 e « ame 5 ? 

670 { 

671 CLogMsgEvent msgError {LC£V_GEHERIC, SVRTY^WARKING) ; 

672 msgErrox << "Error deleting backup file, errno « l n « errno « "]"; 

673 fSuccess - false; 

674 } 

675 } 

S7~6 \ 
677 

678 return f Success; 

679 ) 
68C 

681 bool CWndMonitorISP: : exchangeFiles O [Claim lb, 2a ,4a, 5a, 6b, 6c, 7b, 13a, 13b] 

68? t 

683 ' CLcgMsgSvent msgError { LCEVJ3ENERIC, SVRT YEARNING) ; 

644 msgError << "Error coots red in exchange-Piles 0 : 

665 char * ps 2 Last Ope rat. ion; 

686 CFtpConnection * pconnFtp » NULL; 

637 

688 bool f Success - false; 

ess 

690 try 

691 { 
692 



////7//////////////////7////////////////////V/////////////////A/// - 

693 // ftp connect to the host . 

6<>4 jfiniiinnnnniiitnitiinininiinunifiifniiiiinufiinn 

695 pssLastCperation = "CInternetSession 0 : 

696 CInternetSession session I nternet (Af xGetAppName ( ) ) ; 
697 

b9S psrLastOperation = "GetFtpConnection : 

699 pconnFtp * sessionlnternet . Get FtpConnection { 

700 " m_registty.m_strFtpAddress.c_str 0 , 

701 ra_registry.m_strFtpLogon.c_str 0 , 

7.0 2 *a_regis-t r y . sB_5>t r Ft pPaoswor d . c_9t r ( > } ; 

703 

704 if {pconnFtp » NULL) 

705 throw BJFAIL; 
706 

707 pssLastQperation - "SetCur rent Directory () : "; 

^ ( tnconnFtp*>'SetCur rent Di rectory (m r?ni «t ry , mjt rHost Hi r»r*t0^y . C_St>* ( ) ) ) 

709 throw EJTAIL; 

710 

7ii uiiintiiitnttuiiuuiiiitimimwmuimmnmmmim 
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712 // get files peculiar to this kiosk 

713 /////////////////////////////////////////////////////////////////// 

714 CFiieName Kiosk fnKiosJc; 

715 fnK.iosk.set (-direction", "D") ; 

72 6 fnKiosk . set { "kios-k^id" , m_ registry . m_st rKioskld ■. c_str ( ) ) ; 

717 fnKiosk* set ("date", n * M ); 

718 fnKiosk. setExtension ("zip"} ; 

719 string strSea rch Filets ame; 

720 f nKiosk . getFullBame (strSeazchFileName) ; 

721 •psaS^s-fcOpe-r-a'tior* "-puliTt-pFi&eoiKioaJcid . zip-* : " ; 

722 pullFLpFiles (pcortnFLp, sir Search FiieKamti . c^slx. i ) # true); 
723 

724 fn Kiosk . »ei Extension i M xml w ) ; 

725 fnKiosk. getFullMame (strSearchFileName) ; 

7.2 6 pszX^st.Oper at ioa- 3:5 "pul I FtpFi Is* (KiosJc IcLxmi ) 

727 pu 1 1 Ftp Fi lea { pcenn Ftp , st rGearch Filename. c_s tr {} , true); 

728 

729 ' /////////////////////////////////////////////////////////////////// 

730 // get application files targeted tor all kiosk 

731 /////////////////////////■////////////////////////////////////>///// 
7 32 fnKiosk . set ( "kios k id" , "KALL" 5 ; 

733 " fnKiosk. setExtension ("zip") ; 

7 34 f n : Ki cr&k . get-Fai IName fs*t r<3 e a rctrFi leName ) 7 

735 pszLastOperatxon = "pull rep riios {kall. zip; : 4i ; 

736 pullFtpFilesCpconnFtp, strSearchFileName. c_str{) , falsa) ; 
737 

738 /////////////////////////////////////////////////////////////////// 

739 // get lifeclinic users 

740 ///////////////////////////////////////////////////////.//////////// • 

741 C Filename Delimited fnLCUsers; 

742 CitLCUsecs .append ("di reo Lion "D"> ; 

743 fnLCUsers. append ("file**, "LCUSERS'M; 

744 fnLCUsers appen-d { "date"., " * " ) ; 

745 fnLCUsers « setExtension {"zip") ; 

746 fnLCUsers. getFullHaroe (strSearchFileName) ; 

747 pszXastOperation - "puirrtpFiles (XCCTsers) 

748 puliFtpFiies{pconnFtp, strSearchFileName . c_str () , false ) ; 
749 

7SD ////////////////////////////////7////////V//////////////V////////// 

751 // put daily transaction files to the host 

752 /////////////////////////////////////////////////////////////////// 

753 pszLastOperation » "Export Date : M ; 

754 export Data () ? 
755 

756 // set up wild card search name 

7 5-7 £aKio s>fc . set { "dir e c t io-R " r " r <? " > - 

708 fiiKioak.&et ("kio$fc_id"/ m_j: eg i & t r y . m_s 1 1 Kica k Id • cjf ti 0 ; > 

759 fnKiosk. set ("date", "*"); 

ICO fnKiosk. setExtension ("xmi"} ; 

761 fnKiosk. getFuilName {strSearchFileName) ; 

762 pszLastCperation ■ "push Ftp Files {) : "; 

764 f Success « true; 
7*5 > 

766 catch iCInternetException * pE) 

767 { 

768 cha r ps z Er r or Me 3 sage [2561; 

769 pE->GetErrorMessage{pszErrorMessage, 256); 

770 msgError « pszLas-tOperation « " Error - fQx" « std::hex « p£->m_dwError; 

771 msgSrror << « sld: :dee « pB->ro_dw Error « ")]. "; 

772 msgError « "Error message - f" « pszErrorMessage « "J w ; 

773 pE->Delete{) ; 

774 J 

775 catch (CException * pE) 
77*; { 

777 char pszErrorMessage [2563; 
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778 pE->GetErrorMessage(ps£ErrorMessage, 256) ; 

779 msgError « pszLastQperation « "Error message * (" « pszErrorMessage « "]"; 
7B0 pE->Delete (> ; 

781 } 

782 ca t c h * SWOft S- dwB r r &r }< 
782 { 

784 msgError « pszLastQperation « "Error « [Ox" « std::hex « dwError; 

785 msgError « u i " stci: :dec « dwError «. ") j . 

786 } 

78-7 catch (...) 

788 { 

789 msgError « pszLastQperation « "Error - (Unknown Exception]"; 

790 } 
791 

792 if (jpconnFtp != NULL) 

7<n { 

794 pconnFtp->CloseO ; 

7^5 delete pccmn-Ftp? 

796 } 
797 

798 if MfSuccess) 

799 msgError. Post (_logAll) ; 

801 return fSut:u«3»f 



802 } 
B03 

804 bool CWndMonitorXSP: :pullFtpFiies (CFtpConnection * pconnFtp, LPCSTR pszFxleSearcn, * 
bool fMarkKostFile) [Claim lb, 2a, 4a, 6c, 7b) 



806 CString cstrFileName; 

f)07 stTirrrj st r hoc* 1 Pil eNai?ie; 

805 string str Process Filename; 

309 CFiieFind f f Local; 

810 

811 string stxXferOir ~ m_ r eg is try.m_str Local pi rectory + "XferW"; 

812 string strBackupOir - m^registry .m_s-tr Local Directory + "Backup\\"; 

813 suing sLtProcDii * in_teyisLry Local Directory r "ProotrssW"; 
814 

315 CFtpFIleFind ffHost (pconnFtp) ; 
816 

817 // get the directory 

81? BOOL f File Found - f f Host . FindFiie (pszFileSearch) ; 
819 

820 // now get each file in list 

$2i while utile round; 

822 { 

823 fFiieFound = ff Host . FindNext File { ); 

824 cstrFileName « ffHosr.GetFile^ameO ; 
82$ 

325 // check to see if we've already palled or applied file, if so, don't pull it 

827 strLocalFileName - strBackupOir + (const char *} cstrFileName; 

828 if (f f Local. FindFile {strLocalFileName . c_str () ) ) 

829 continue; 
830 

8^1 rT,nr* 1 F* IPNAm* = qrrPr^DIr 4- (const Char *) r,*r rFi ) pNamp ; 

832 if (ffLocal. FindFile (StrLocalFileName. c_str() ) ) 

833 continue; 
83<i 

835 // pull file over ftp 

836 strLocalFileName - strXferDir + (const char *) cstrFileName; 

837 if ( ! pconnFtp- >GetFiie (cstrFileName, strLocalFileName. c_str(> ) ) 

83-8 throw Ge t La s-t Error {) ; 

3-39 

940 // move the file to the process directory 

843 strProcessFiieName « strProcDit + (const char *) cstrFileName; 

342 if (rename (strLocalFileName. c_str () , strProcessFiieName.c_str () ) ) 
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843 throw (DWORD) errno; 
844 

ft 4 5 1 1 ( F r k Kns i' F* 1 p ) 

846 { , 

847 // rename file on host, deletes do not work on cached ftp files 
B4B string strtiewMane - (const char *) cscr Filename ; 

84 9 strNewName += ' x*; 

350 it I i pconn Ftp->Re name (est rFileNaroe, strNewName. c stt ()) ) 

851 { 

652 DWORD dwError * GetLast-Excor 0 ; 

303 CLogMsyEvent msgError {LCEV_GEhTRIC, SVRTY_WARNIHG> ; 

834 msgError « "Unable to mark host file ( M ; 

#55 msgError « (const char *) cstrFileName « n \ • Error = TUx"; 

356 msgError « std::hex « dwError « std: :dec « M (" << dwError « M ) ]* 

M . 

H!?/ msgError . Post (_logAil) ; 

858 J 

ass * 

560 } 
861 

862 return true; 



963 } 

8-64 

005 bool CWfsdHuiiitC'iXSr ; ;puShFtpFile$ (CFtpCOiuieetiori * peon n Ftp, LFC3TR ps* Fi ieSeai ch > 
866 { 



8C7 CSt ring cstrFileName; 

868 string sc r Local Filename; 

363 string strXferDir * m_registry .m_strLocal Directory + "XferW"; 

370 string strBackupPir - m_registry.m_strLocalDirectory + "BackupW"; 

871 string strSearch Filename « strXferDir + ps2FileSearch; 

972 

873 CFiieFind rirLocai; 

874 BOOL fFiieFound * ff Local . FindFile (strSearchFiieName. ejstr ()) ; 
3 7 5 m h i .1 e f f Fi 1 e Fon nd ) 

376 { 

877 fFiieFound - ff Local . FindNe*tFile() ; 

875 cstrFileSame ■ f f Local. Get Filename (} ; 

879 

880 // send the file 

881 str Local FileName - strXferDir + (const char *) cstrFileName; 

882 if ( !pconnFtp->PatFile (st.r Local FileName. c_str 0 , cstrFileName) ) 

RR^ throw Get '-astFrror () ; 

884 

Q8-5 // move the file to the backup directory 

6^6 string str&ackupPileftame « strBackupDir * (const char w ; cstrFileName; 

887 if < rename (strLocaiFileName.c_str () , strBackupFileName. c_str () ) ) 

888 \ 

889 CLogMsgEvent msgError (LCSV_G£NERIC, SVRTYJfARNING) ; 

8-90 ms-^E-rro-r « "Uaa&Le to mc^e file" [ M « {const char *! -cst-r-Fileftene « "] V 

891 msgError « "to the backup directory."; 

892 msgError . Post (_logAll) ; 

893 } 

894 } 

fiOS return true; 



896 } 

mi 

SZ'B bool CWricMonitcrISP: rexportData \) [Claim 5a j 
699 ( 



900 bool f Success » true; 
901 

902 string str FileName; 

90 3 SYSTEMT.IME tm; 

904 GetLocalTime (4tm) ; 

$ft5 datr dateMowt 
90b 
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507 // build file name 

908 SystemTimeToVariantTime (fitm, fidateNow) ; 

909 CFileNameKiosk fnKiosk; 

910 fnKiosk. set ("direction", "U") ; 

911 fnKvask . set { M ki0Sk_i<* M , m_regi a t ry.m yfrKi oakTtf. c_str () ) ; 

912 fnKiosk. set ("date", dateNow) ; 

913 fnKiosk , set Ex tens ion { "xml") ; 

SI 4 rnKiosk.getFullName (at r Filename > ; 
915 

916 // gee the exported data 

9 1 .7 i kc Da t a P t r s pKC Da t a ; 

918 H RESULT hr = spKCData.Createlnstance ( _uu.idof (KCOata) > ; 

if ?FAILESv'^5 ) 

920 { 

921 CLogMsgEvent msg <l»CEV_GENERIC, SVRTV WARNING) ; 

922 msg << "Unable to instantiate IKCData object:. Error « [Ox"; 

923 msg « std::hex « hr « "J."; 

924 mag . Foo t (_logA'll) ; 

925 } 
926 

927 try 

926 { 

929 // get the exported data 

930 spKCData-^open ( ) ; 

931 _variant_t vData ■ spKCData->getUnexportedData ( ) ; 

■992 -string strXml «■ (char ■*) (J&stvJL) vDartar 

934 // encrypt the data 

935 CEncryptor encrypt; 

936 string strXml Encrypted; 

937 -e^r^.£iKrrypt-(&t-xX»-l.-e_9Cx-(> r HUU, 9CrXa££&cryp€«d*; 
538 

939 // write the data out 

940 CFile fileOut; 

941 string strrileout « m_r eg is try.m_strLocalDi rectory + "xferW"; 

942 st r FileOut +» str Filename; 

943 fiieOut.Open{strFileOut.c_str () , CFile: ; mode Create i CFile : :modeWrite) ; 

944 fileOut .Write ( 3 trXml Encrypted. c_str ( ) , strXmlEncrypted. size O ) ; 

945 fileOut . Close ( ) ; 
946 

947 //mark all data exported 

94* spKCData-^marfcDataExported {) ; 

949 

95$ spKCDa t&->c±vs%i )7 

952 f Success « true; 

953 ) 

954 catch C_com error 6 e) 

955 [ 

956 CLogMsgEvent msg {LCEVJ3EHERIC, 5VATY_HARNING) ; 

957 msg . set Error (e) ; 

958 msq.Post (JLoqAll) ; 

959 f Success » false; 

960 } 

962 { 

963 char sz-Error [25-61; 

964 pEx-^GecErrorMeasage UsError, 256); 

965 CLogHsgEvent msg (LCEV_GENERIC, SVRTYJ*ARNING) ; 

966 msg << "CFile threw exception. Error « [ n « szError <X "J . "; 

967 msg « "Cause * {" « pEx->m_cause « "]."; 

968 msg . Pos t {^logAll ) ; 

969 p£K->0elete{> ; 

970 ) 

971 catch (bool fError) 

972 { 



973 
974 
975 
976 

9?S 
979 
S80 
981 

£§2 

983 

98<J j 

907 { 



i "'"**•• 

catch (..^ « 



989 

991 

992 
993 
994 

995- 

9? 5 

99? 

99S j 

959 



n^ Dir r W0 — 0 
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1 Binciuchs "xcJ3thezComjnands.h''' 

2 ^include "13 kdaak^h" 
2 "~ 

4 limn/urn milium mm uumithimmutinn/mttm 

6 

7 bocl Cxc_applyKioskTrans: :execCommand{) 
ft { 

9 bool fSuccess « true; 

booi fTra-nrsStarte^ = false; 

11 aijpconn «* HULL; 

12 m.J.AuditId » 0; 
13 

14 try 

15 \ 

18 string strKioskld; 

*y string strRecId; 

20 

21 get Parro< "kiosk id'*, scrKioskTcl) ; 

22 getearm("tec id", strRecId) ; 
23 

24 IKioskXa - atoi isrrKicskld.c str {) ; ; 

25 *ong IRecId » atol {strRecId. c^str {) ) ; 
2 6 

2"? if (IKioskld ~ 0} 

28- I 

*2 01 efliLdfijt « "Vkioafc^idV is a reqtiii'trd paiaiittftei . w ; 

30 tnrow fSuccess * iaise; 

n 1 

32 

33 if (IRecId 0) 

14 { 

^ m^eir.Last « "V'rec id\ M is a required parameter."; 

throw fSacc&M - false; 

37 } 
38 

39 mjpconn « m_pcoClient~>aetConnection O ; 

40 if (mpconn =« NULL) 

41 ( 

1 -m_ttnsLn»l . &«L£x.i ui u:i_yuvC 1 ul -\>y *LLa s> LEx xu » { ) ? ; 

♦13 - 
44 } 
45 



48 

50 



5 j 



58 



62 
63 
64 
65 



throw fSuccess » false; 



^ e i: sTrans.setAct.iveConmand{' , cmdGetTrans w ) ; 

47 rsTrans. setParameter { "kiosk id", variant t aKioskld) > ; 

flfl . rsTrans . set Parameter ( "rec^id:*, variant tllRecId) ) ; 



11 (Im pconn-^exeeuce c rsTrana) ) 
51 { 

^ 2 m_emLast . setEr ror fm_pconn->getLastError f ) ) 

53 throw fSuccess » false; 



56 if (rsTrans. is Empty 0 ) 

57 | 



m emLast « "There are no transactions for kiosk_id [» « iKioskld « M J, * 



xec_ixl l"l 

Tc_cTT.Lc.ot « IRecId « "]."; 
$0 throw fSuccess *» false; 

61 } 



63 // get the transactions in xmi format 

*4 string strXml; 

rsTrans. getField ("data", strXral) ; 



66 
67 
63 
69 
70 

n 

12 

73 
?4 



75 

76 

7? 

78 

79 

80 

81 

82 

83 

84 

85 

86 

ST 

aa 

09 
90 
91 
92 



94 
So 
96 
57 

$s 

100 
201 
102 
10? 
104 
10-5 
106 



107 
108 
109 

no. 

ill 

112 

113 

114 

115 

1H 

117 

He 

119 
120 
121 

122 
123 . 

125 

I2€ 

127 
128 
123 
130 



L ^2£li2£nts and ....... 



' ^ * ^ a± 1 1 VNMr w 

c ^lnocumenr ' "^"^^^ 



C *"lEi««e„t enable; 
fT «n sSt arted * „ n 

P ., shr kC - ia - ma P"' citable, j 

(f ■••« 



131 
132 
133 

134 
135 
136 
137 
138 
139 
140 
141 
UZ 
143 
144 

145 
1-16 

147 

14'S 

149 
ISO 
151 

152 

153 

15* 

155 

156 

157 
• 15.0 

* r .-v 

16C 
161 
162 
163 
1 £4 
165 

167 
168 
169 

170 
171 
172 
173 
174 
175 
176 } 
1 77 

178 bv 

179 ( 
180 
131 

182 

1.83 

18*5 
185 
186 
167 
188 
169 
190 
ISM 

193 
194 
195 
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else 
( 



m_pconn->roXibackTcansU ; 
strStatus » 



} 

cat 
{ 



/ / ma r k t r a n a a c t to n pr oce s sed 
rsTcans.setActiveCom3(nand^"cmdaptKioskTxans ,, ) ; 
rs-Trans-setParaaeter ("kioskjLd", variant_t UKioskld) ) ; 
rsTiaiis.aetrarametei; {"rec id", ^variant t (IRecIU) ) ; 
rsTrans.setParameterrstatus", _variant_t (strStatus c str()))* 
rsTrans.setParaaeter ("reason", ^variant t < str Reason. cTstr {) ) ) ; 
rsTrans. set Parameter ("audi t id", variant t<lL)); 

I 

m emLast .setSrror <mjpconn->get Last Error 0 > ; 

throw f STucces s * false; 



m^emLast: . set Br rex {e} ; 
x Success = false; 



catch (bool fB'ool) 
f 



) 

ca 
( 



fSooi; 

f 3 u c Lfea 6 - f a 1 s e ; 
cch<... J 

m emLast.setErrorCOhkown exception raised. (Command : appiyKioskTrans } *) ; 

f Success - false; 



if (rTransScarted; 
{ 

if ffSuccess) 

m_pccnn->cotnmitTrans {} ; 



return £ Success; 

i Cxc appiyKioskTrans: : applyTr ansa etions (CXmi Document SxdocData, CSdoRecordset & * 

bool f Success * false; 
string strTag; 
mjamLast. clear (5 ; 



trv 
i 



//Active command is expected to be set prior calling, 
//get the Sdo command pointer 

CSdoCotnmand * pcrodSdo - rsCmdRecSet . getActiveCoranand { J ; 

//get the table element from the stack 
CXmifciement elTabie; 
xdocData.getCurrent (Sellable) ; 
string strAttrVa.iue; 

elTable.getAttxibutert", strAttrValue) ; 
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196. it (strAttrValuefOj !- 't'} 

197 { 

1 m_emLa s t . cl ea r { ) ; 

199 m_emXast « "Expecting XML table element to have attribute t~\"t\"."; 

203 throw f Success « false; 

201 } 

202 

203 CXml Element el Row ; 

204 bool fRows * elTable .get-First ( fcelRow) ; //get the "row" Element 
205 

2GG while {fRows) //process for all "row" Elements 

207 { 

2 OB //get "row "tag 

209 el Row. get/Tag (strTag) ; 

210 if (stricmp<stxTag.c_stE() v "row") != 0) 
?i l J 

212 m_emLast . clear ( j ; 

213 wr_«aLa-s-t •<< "-Expecting KML elemerrt \ n rw\ w . Found V" << strTag « "W 
♦ r 

214 f Success - false; 

215 break; 

216 } 
217 

218 //Set all the parameters 

219 xdoc Da t a. pushCur rent (selRow.) ; 

220 • 

221 pcmdSdo->clearParms() ; 

222 it (pcmdSdo->set Farms (xdocData) «■ false) 
( 

224 string strError; 

225 pcmd5cfc>~>^etLa'5t Error ( s t r€r rox } ; 

226 m_emLast. set Error (scrBrror. c_str {) }; 

227 f Success « false; 

228 break; 

229 } 
23-0 

231 i f i m__l A uvi i L I u } 

232 pcmdSdo->setParm("audit_id M , variant t (m lAuditld) ) ; 
233 

234 xdocData -popCur rent {) ; 

235 

// update the table 
237 if (HfSuccess = mjpconn->execute (rsCmdRecSet) ) 5 

23-S { 

239 mjamLast . setError *m_pconn->getLast Error {)); 

240 fSuccess • raise; 

241 break; 

242 ) 
241 

244 //fetch next row to update. 

245 fRows = elTafole.getNext (ielRow) ; 

j 

247 

248 f Success - true; 

74 q } 

250 catch { com_error & e) 

251 { 

252 m^emLast ♦ setError (e) ; 

253 f Success - false; 

254 ) 

255 catch (bool fBool) 

256 { 

258 f Success • false; 

259 } 

260 catch (...) 



This Page is Inserted by IFW Indexing and Scanning 
Operations and is not part of the Official Record 



Defective images within this document are accurate representations of the original 
documents submitted by the applicant. 

Defects in the images include but are not limited to the items checked: 

□ BLACK BORDERS 

□ IMAGE CUT OFF AT TOP, BOTTOM OR SIDES 



LJ FADED TEXT OR DRAWING 

□ BLURRED OR ILLEGIBLE TEXT OR DRAWING 

□ SKEWED/SLANTED IMAGES 

□ COLOR OR BLACK AND WHITE PHOTOGRAPHS 
□/GRAY SCALE DOCUMENTS 



□ LINES OR MARKS ON ORIGINAL DOCUMENT 

□ REFERENCE(S) OR EXHIBIT(S) SUBMITTED ARE POOR QUALITY 

□ OTHER: 

IMAGES ARE BEST AVAILABLE COPY. 
As rescanning these documents will not correct the image 
problems checked, please do not report these problems to 
the IFW Image Problem Mailbox. 



BEST AVAILABLE IMAGES 




/ 



